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A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA UL 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui+ tudo o que Voc§ espera 
de um grande micro. 

Cam pa live! com o TRS-Bfl 
Modal f> Ell da Radio Shack. 
Cabinet*, led ad ft o CPU em 
modulo s independentes. 

Ve?r§g*s de 64 a 120 KB vies de 
RAM, IB KBytes de ROM. 

Tnclado profissiotifl] com 
num^rico wiuzido e 4 ledas 
de Tungoes. 

Sistema operacional de disco 
DOS 111 ou CP^M 2,2. 

Caracleres graficos. 

Video composlo com t8 M HZ 
de fatxadc passage m. 

Saida para iinpressora 
paralela. 




SYSDATA III 
Software d Lsponfvel 
variado. Escnlha oseu. 

Videotex to (TE L E S P], 
PrftjetoCirnndio 
(EMBRATELj. 

Redede telex. 

Si sterna Gerenciador de 
Banco de Dados (5GBD1, 

DBASE II. 

Comp Had ores CobftL 
Fort ran , Pascal. Basic, Forth. 

Ltspe Pilot. 

Editor de mxtos. Editor de Assembler 
Desassemblador, 

Debugador 

Visicok. 

Words! a r. 

0 muilosoulros- 
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M y. - - 




SYSDATA III 
Caractedsticas t£cnitft&. 
Para aqueles que querem 
saber tudo. 

Total compotibilidade com o 
TRS^ao Mftdelo 1 11 da Radio 
Shack- 

Process ad or z-afrA. 
Video do 16 x 64 OU 16 X 32 
flinhas x colunas) 
Ali men la cao de 110 V ou 22 ft V, 
Teclad o alfan umH rico de 
69 led as. 

Tec lad omirnd rico reduzido 
com 4 teclos de fun goes. 
Gr£ficos com 1ZB x 48 pontes 
no video, 
Aceita at£ duas KS-232-C 
[Sincronas ou Assincronas). 

Modem [opcional). 
Saida pa rale la para 
impresses 
Place control adore para Hie 
4 drives de 5 e U4 , dup]a 
densidade(180 KBylesjjor 
face), face simples (dupla face 
optional], 

Qpfdes Fu Curas: 

Video cam patfvel 16x64. 

. 16 x 32. 24 X SO OU 24 x 40 

dinhasxcohmosj. 
Expansao ate 256 KB vies 
de RAM. 

Alla re sol uga ft grdFica e cor. 
Interface para acionamento de disco rlgido 
(Winchester! de 3. 10 on 20 MBytes. 

Clock dobra do (4.0 MHZ). 
Total compatibilidado com o TRS-80 

Mod. IV. 
CPi'M versio 3,0. 
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A VIAGEM DOS DADOS 

Neste artigo, Roberto Quito de Sant'Ana comenta que o grande asstmto do 
momento nas rodas de hobbystas e usu£rios de micros 6 a transmissSo de 
dados, ou simplesmente a comunicag§o entre os equipamentos. 

Em linguagem acessivel, ele explica os sistemas em funcionamento no 
Brasil e d£ uma visio panoramica a respeito de como se processam a saida 
e a entrada dos dados nas m£quinas. 




QUASAR IV, UMA AVENTURA COMPILADA 

O usu£rio vai conhecer neste artigo toda a profundidade do Quasar IV, um 
jogo cuja principal caracteristica e fugir da formula do interpretador, 
considerado monotono ou muito lento por alguns. Trata-se, segundo L£vio 
Pareschi, de um passatempo com multiplas opcoes, que ora exigem sorte, 
ds vezes malandragem, quando nao muita habilidade. Um jogo f£cil, dificil, 
desafiante. 




ARQUIVOS EM DISCO DO NEWDOS/80 

Conclusao do artigo cuja primeira parte foi publicada em MS 39. 

Nesta ultima parte Joao Henrique Volpini Mattos ensina a praticar os novos 
comandos utilizados com os arquivos NEWDOS/80, de maneira simples, 
fazendo com que o usu£rio perca o natural temor de se aventurar por 
caminhos que alguns consideram complicados, como esses arquivos. 




OS PERIGOS DA TELEMATICA 

A m£quina pensa ou nao? Bern, este assunto e outras questoes de profunda 
subjetividade filosofica sao expostos e comentados de forma bem 
humorada por Luis Carlos Eiras, em mais um conto em que a inform£tica e 
o ponto central. Ele narra as experiences de um usu£rio que se aventura a 
utilizar seu equipamento em busca de contatos com outros seres terrenos 
durante a madrugada. 



AUTOMAQAO: UM CAMINHO PARA 
AS REDES LOCAIS - Como sao e quais 
as vantagens das redes locais. Veja neste artigo 
de Amaury Moraes Junior. 

MODEMS, UM PERIFtRICO EM 
VOGA - Uma abordagem abrangente 
acerca desse importante periferico na 
comunicagSo de dados. Reportagem. 



APPLE, O MAPA DA ROM - Aldo 
Felicio Naletto Junior, na primeira parte 
de seu artigo, comega a explicar o mapa da ROM 
do Apple. 



BANCO DE SOFTWARE 

* 64 - Polvo Gigante * 66 - Curvas Fant£sticas 

* 69 - Lista Telefonica * 72 Solit£rio 
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A esta alt ura do campeonato, voce ja deve estar sentindo leves 
/I ventos de mudangas no perfil de MS. E bem verdade que 
ainda e cedo para julgar se tais mudangas sao boas ou ruins, 
porem tenho certeza de que, em doisoutresmeses, estaremosas volt as 
com urn batalhao de cartas, dosmais variados pontos do Brasil, cada 
qual trazendo, no minimo, uma sugestao ou critica. 

Seria um exagero dizer que sao essas cartas que nos levam ao 
caminho A ou B, mas cert amen te elas const ituem parte fundamental 
de nosso combustivel. A partir delas, a gente reflete bastante, 
discute — e como — e decide man ter ou alterar o rumo. As vezes nao 
conseguimos nos esquecer, mesmo em casa, nos fins-de-semana, dos 
elogios apaixonados ou das criticas ferozes. 

Eimensa a responsabilidade de ter um grupo de lei tores tao 
atentos. Nao nos permite a inertia, jamais. Tam bem ofato de estar mos 
ha quatro anos batalhando neste mercado nos deu experiencia 
suficiente para fugir da acomodagao. Durante este tempo, MICRO 
SISTEMA S esteve sempre inovando; levando ao leitor importantes 
informagdese, principalmente, servindo de pome entre o usuario e a 
industria. Essa foi nossa maior preocupagao: criar condigoes para que 
nossos leitores vivessem plenamente os recursos oferecidos pelo 
mercado brasileiro de microinformatica. 

Masnosvamosmudar. Oqueerabomem MS, trabalharemos para 
que fique ainda melhor, pois faremos de 85 o ano do usuario, do 
leitor. Iremos reestruturar algumas segoes e servigos e procuraremos 
agilizar nosso esquema de atendimento as duvidas. 

Para os que se desanimam perante dez pdginas de uma (boa) 
listagem, aconselhamos um pouco de paciencia, pois estamos 
preparando o MS Save, para diminuir os entraves da digitagao. Os 
que reclamaram a ausencia de nosso tradicional indice MS podem 
estar tranquilos, pois vem ai o Acesso Direto, um resumo completo 
destes ires anos de MICRO SISTEMAS por edigao, assunto e linha 
de equipamento. Outro servigo, as Micro Fichas, sera bastante util 
para acabar de vez com os papiros-lembretes. Quanto aos cursos 
periodicamente apresentados por MS, estamos estudando os pedidos 
e a viabilidade de produgao. Continuem a enviar sugestoes. 

Eisto. Neste mes hislorico, em que se inicia uma nova era para 
nosso pats, anunciamos, tambem para MS, um novo ciclo, cujo 
sucesso, de maneira identica, sera fungao direta da participagao de 
todos. 
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JATEMO 

IVBCROENGENHO 2. 




A Com pumicro e a unica em presa do Rio que comercializa 
exclusivamente micros para uso profissional, em um amplo e condor- 
tavel escritorio. 

Com uma equipe de vendas formada somen te por profissio- 
nais de iniormatica, a Compumicro vem se destacanao como uma 
das maiores e mais bem preparadas empresas do setor. 

Isto se deve ao fato da Compumicro oferecer um atendimento 
altamente especializado, so comercializcmdo equipamentos de qua- 
lidade comprovada. 






Como um sucesso puxao outro, a Compumi- 
cro coloca a sua disposigao o Microengenho 2. 

O unico micro computaaor nacional totalmente 
compativel com APPLE He americcmo. 

O Microengenho 2 gera caracteres em portu- 
gues maiusculos, minusculos e acentuados a partir 
do teclado. Pode ter resolucao arafica de 107.520 
pontos no video (dobro do APPLE II Plus). E ainda 
possibilita o uso de uma placa de modem 1275A, 
operando em modo FULL-DUPLEX (cirandao) e 



operando em modo 
HALF-DUPLEX (Micr.oxMicro) substituindo o modem 
extemo convencional. 

Venha a Compumicro e comprove este su- 
cesso pessoalmente. 

Compumicro. O melhor em micro pelas 
melhores condigoes. 



PUXA SUCESSO. 





INFORMATICA EMPRESARIAL LTDA 



End. : Rua Sete de Setembro. 99-11.° andar - Tel. : PABX (021) 224-7007 

CEP 20050 - Rio de Janeiro/RJ. 
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O sorteado deste m4s, quo receber* uma assi- 
natura de um ano do MICRO SISTEMAS, 6 
Antonio Roberto Barrichello, de Sao Paulo. 



' R ESPOST A AO GARIMPANDO...S 



Sou possuidor de um TK-85 com 16 K 
de membria, assim como o leitor Ricardo 
Mendonga, que relatou sua experiencia na 
Segao Cartas de MS n9 34, na carta intitula- 
da "Garimpando bytes". Quero, se possfvel, 
esclarecer a duvida do Ricardo: no que tange 
ao funcionamento interno do microcompu- 
tador, pouco sei, mas posso assegurar, toda- 
via, que o processador Z80 4 um processa- 
dor de 8 bits, que permite o agrupamento de 
dois registradores internos de modo a for- 
mar uma palavra de 16 bits. 

Os 16 bits recebem as seguintes denomi- 
nagoes: A15 A14 A13A12 All A10 A9 A8 
A7 A6 A5 A4 A3 A2 A1 AO. Assim, o pro- 
cessador tern condipoes de acessar 65536 
(2 16 ou 64 K) bytes de membria (ou posi- 
goes). Por4m, o Sistema Operacional dos 
micros da linha Sinclair seta o bit A15 (veja 
em MS n9 31 , p4g. 42). Desta forma, o pro- 
cessador s6 pode acessar 32768 (2 1 * ou 32 
K) posipdes de membria. 

Por causa desta particularidade do Siste- 
ma Operacional da linha Sinclar, os numeros 
maiores que 32767 (2 1 5 — 1 ) sao vistos pelo 
Sistema Operacional da seguinte forma: 
N-32768, porque quern define se um nume- 
ro 6 maior ou menor que 32767 6 o bit A1 5. 
Se ele nao for considerado, haver4 uma mera 
repetipao dos numeros de 0 a 32767. E se der- 
mos um POKE no enderepo 57344, comoo 
leitor Ricardo Mendonpa fez, estaremos, na 
realidade, dando um POKE no enderepo 
24577. 

Para chegar a esta conclusao usei os co- 
mandos B, E e M do MICRO BUG, e pesqui- 
sei os enderepos de 32757 at4 32767 e os 
enderepos de 65525 at4 65535. 

O resultado foi: 

32757 48 65525 48 

32758 A6 65526 A6 

32759 OD 65527 OD 

e assim sucessivamente. Podemos reparar 
que o enderepo da esquerda 4 igual ao da 
direita, diminuindo-se 32768. Se pegarmos, 
por exemplo, os dois ultimos numeros que 
pesquisei (32767 3E e 65535 3E) e transfor- 
m4-los em bin4rio, teremos: 

32767- 0111 1111 1111 1111 
65535= 1111 1111 1111 1111 

A unica diferenpa entre os dois numeros 
bin4rios 4 o bit mais significativo (A 15). 

Ainda usando o MICRO BUG, criei a li- 
nha 1 REM com 99 caracteres e entrei com 
a dica "Surpresa na tela" (Segao Dices de 
MS n9 34), sb que nao usei o enderepo 
1 651 4, mas sim o enderepo 49282 ( 1 651 4+ 
32768). Depois retornei ao BASIC, testei a 
rotina com RAND USR 16514 e ela funcio- 
nou perfeitamente. Tentei acessar a rotina 
atrav4s de RAND USR 49282 mas nao 
funcionou, dando notagao 0/0. O que deve 
ter acontecido com o leitor Ricardo 4 que 
provavelmente ele utilizou um programa 
BASIC para fazer a constatapao citada na 
carta e, por sorte ou azar (nao sei), isto n£o 
interferiu no programa. 

Gilberto F. da Silva 
Sao Bernardo do Campo-SP 



Agradecemos a vocfi, Gilberto, e tamb6m 
a diversos leitores que nos escreveram expli- 
cando o que realmente ocorreu com o micro 
do Ricardo. 



CONVERSA 
DE PROGRAMADORES 



Recebem os em nossa redagao a colabo 
ragao espontanea do nosso amigo leitor Bel- 
miro, em que este faz alguns comentirios 
irdmcos sobre o programa "PIL, a fertilida- 
de programada", publicado em MS nP 31, 
P*fl. 32. 

Dizem que j4 aconteceu (sobre o progra- 
ma Pi I, de Armando Oscar e Maria Beatriz 
Cavanha): 

Um programador encontra-se com seu 
amigo, que vinha usando o PIL desde o casa- 
mento. 

— 014, como vai? Puxa, h4 quanto tempo a 
gente nao se v4, caral Quern 4 esse menini- 
nho? 

— £ o meu ET2. 

— ET2?I 

— £... Erro de Tabela 2. Aconteceu num es- 
papo de sete anos. Meu ET1 j4 vai fazer nove 
anos: ocorreu no segundo ano de aplicapao. 
Depois eu melhorei a performance. 

— Entao, daqui a uns 1 2 anos sai o ET3. 

— Pr4 mim chega. J4 mudei a t4cnica. Aban- 
donei o "software" e apliquei o "hardware". 

— O COMPUTADOR... cara?l 

— O bisturitex. 

Belmiro F. da Silva 
Rio de Janeiro — RJ 



I CHING NO CP-300 



Na revista MS n9 26, foi publicado o 
programa / CHING , mas quando fui rod4-lo 
no meu CP-300, deu erro nas linhas 130, 
140, 150 e 160: toda vez que pressionava 
RUN dava erro nestas linhas. Um outro pro- 
blema ocorre nas linhas 465 a 475, com a 
mensagem de erro: "subscrito fora de fai- 
xa" na linha 475. O valor de G na vari4vel 
J$, na linha 475, fica entre 500 e 600. E o 
erro que est4 acontecendo nas linhas 130, 
140, 150 e 160 6 um erro de sintaxe, pois o 
BASIC sem Disco n§o aceita a instrugffo: 

NL MIDI ( D$ r L F i)® ,, l” 

que deve ser mudada para: 

NL K$=hID$(D$ r L r i) s K$= " i 11 

Gostaria que MS entrasse em contato 
com o autor para a solupSo dos problemas 
citados, ou seja, modificar as linhas 130, 
140, 150, 160, 370, 385, 390, 400, 410 e 
420, permitindo que mesmo quern nSo te- 
nha disco possa desfrutar do / CHING. 
Gerson Petrucelii Filho 
Sao Carlos-SP 

Remetemos a sua carta para o nosso 
amigo Luiz Gonzaga de Alvarenga, autor do 
programa / CHING, e eis a resposta que re- 
cebemos: 

"Realmente o CP-300 nao aceita a atri- 
buipao direta da fungiio string MID$, pois 
esta 4 exclusive do BASIC Disco. 

O valor de G que wood encontrou 4 igual 
a 517, e 6 decorrente da atribuipSo de vari4- 
vel ocorrida na linha 40, com decrementos 
de 64 em 64, nas linhas 130, 140, 150 e 
160. A modrf icapSo a present ad a em sua car- 
ta nflo 4 suf iciente. O que ocorreu 6 que, na 





linha 440, nSo foi encontrada a string H$- 
T$ (comparagSo feita na linha 445) para 
que fosse feita uma nova atribuipao de vari4- 
vel, onde G tomasse o valor de A (que seria, 
no mtoimo, igual a 8). Naturaimente, o 
valor de G na linha 475 manteve o seu ulti- 
mo valor, o que acarretou erro de dimensio- 
name n to. 

Apresento, a seguir, as modificapbes que 
se podem efetuar para que o programa rode 
no CP-300: 



. . . IFL >6THEN168ELSE102 
. . . IFL >6THEN168ELSE1 02 
. . . IFL >6THEN1 68ELSE 1 02 
. . . IFL >6THEN168ELSE102 



102 KS<L)-HI0S<0S,L,1 > 

105 IFK*<L>«"1 W 
110 IFKS(L)«"2" 

115 IFKS(L>*"3 # ' 

120 IFK1<L>»~4~ 

130 Kid)* - !" . 

140 KS<L>-~0" . 

150 KKL)*"!" . 

160 KS(L>-"0~ . 

165 G0T0102 

168 F0RUQ»i T06* AFS*AFS-»-K%< UQ ) iNEXT 

169 OS-AFS 

367 FS<K >-MIDKT*.K.l ) 

370 IFFS<K>«"1" 

375 IFFS<K )»~2 H 
380 IFFS<K>--3" 

385 IFFSCK )«"4" 

390 F S ( K ) ■ " 1 " . 

400 FS<K>-"0" . 

410 FS<K>-"0" . 

420 FS(K )■"!" . 



...ELSE367 
...ELSE367 
. . . ELSE367 
. . . ELSE367 



432 FORWO-1T06«FAS»FAS^FS<UO) INEXT 

433 TWA* 



Luiz Gonzaga de Alvarenga 
Goifinia-GO 



CONTROLE DE 
CARGAS ELgTRICAS 



Na revista nP 20, de maio de 1983, foi 
publicado um artigo que me interessou: 
"TK e NE no Controlede Cargas El4tricas". 
Sendo possuidor de um TK82-C (versao no- 
va), estudei e montei o circuito, por4m este 
n£o funcionou como o previsto. 

Apbs ligar a interface no micro, ocorria 
o seguinte: ao digitar o programa tudo fica- 
va est4vel e, logo depois, ao introduzira va- 
ri4vel A, a safda oscilava como se, de repen- 
te, rapidamente, muitos enderepos tivessem 
sido liberados. Em seguida, por4m, ficava 
est4vel mas sempre com o mesmo enderepo. 
Depois disso, cada toque do teclado corres- 
pondia a uma mudanpa para F(H) nos bits 
menos significativos do enderepo. 

Para facilitar a visuaiizapao das safdas, 
liguei um CI-9368 ao CI-8212 e um display 
FND-560. Usei tamb4m, para seguranpa no 
funcionamento da interface, uma fonte de 
alimentapao usando o CI-7805 a, logicamen- 
te, interliguei o terra como o do micro, mas 
a situapao nao mudou. 

Ficaria muito grato se o autor fosse con- 
sultado para dar o seu parecer com relapao 
ao ocorrido: aconteceu alguma errata na 
mat4ria ou o circuito sb funciona em outro 
micro? 

Milton Vilela 
SSo Paulo — SP 

Remetemos a sua carta, Eng. Milton, pa- 
ra o nosso amigo e autor do artigo, Jerre Pal- 
meira Salles. Ele respondeu o seguinte: 

"Esta questao 6 sui gineris. At4 agora 
nao havia aparecido nenhuma carta com este 
problema. Na minha opiniao, s6 existe uma 
possibilidade para o ocorrido: o barramento 
de dados 6 compartilhado com outras ativi- 
dades do microprocessador, ou seja, durante 
um certo tempo ele recebe sinal, em seguida 
transmite sinal e depois refresca a membria. 
Se durante os perfodos em que o micropro- 
cessador est6 enviando sinais outra fonte 
tambbm estiver usando este barramento, ha- 
ver4 um conflito de informapoes e aparec er4 
o que voc4 viu na tela. 
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So quern domina esta tecnologia pode oferecer o que 

ha de melhor em 16 Bits 



• CPU’S Standard 256 K 

• Drives 5 Va DFDD (360 K) 

• Winchester de 5 e 10 MB 

• Monitores cromaticos/mono 

• Co-processador 8087 

• Expansoes de memoria 

• Todos os modelos de 
impressora 



• Emulagao de terminals / RJE 

• Comunicagao micro x 
mainframe 

• Sistemas multiusuario 

• Conversores de protocolo 

• Redes locais 

• Software nacional 
e estrangeiro 



AI6m disso, aCompumicro oferececom exclusividade 
o dispositivo 8088 processor card que permite operar 
software da linha PC em micros da linha Apple. 



INFORMATICA EMPRESARIAL LTDA. 

Rua Sete de Setembro, 99-11.° andar 
Tels: PBX (021) 224-7307 - 224-7007 - RJ 



C0MPUMICR0 

Nos dominamos esta tecnologia. 



Microprocessador INTEL 
8088 (16 BITS) 







Erta duplicidade de inform apio poderia 

ser: 

1 — Curto-circuito entre os pinos do correc- 
tor que voce usou e a safda de expansao do 
TK. 

2 — Defeito no 8212 e ele est* curto-circui- 
tando o barramento de dados ou o de ende- 
re$os. 

Sugiro que voc£ confira as conexoes do 
item 1 e verifique se nao h4 liga^ao errada, 
tanto na fiapao da expansao quanto do 8212. 
A interface abordada em meu artigo funcio- 
na em qualquer micro da linha Sinclair (o 
meu equipamento 6 um NEZ-8000). E as in- 
formapoes divulgadas na revista estao corre- 
tas." 

Jerre Palmeira Salles 
Crato — CE 



NAMORANDO COM MS 



Confesso que foi atravfe de MICRO SIS- 
TEMAS que me apaixonei pelos micros. De- 
sejo tamb6m confessar a minha personal ida- 
de voluvel, j£ que antes de por os olhos nes- 
ta revista, eu era um grande admirador dos 
grandes sistemas, pois sou um aspirants a 
programador COBOL. Mas pouco a pouco 
me deixei levar pela graga, rapidez e simpli- 
cidade do BASIC e dos micros. E esta revista 
me possibilitou conhecer e me aproximar 
desta minha nova paixao. Creio que como 
leitor de outras publicapdes do generq posso 
dizer que MICRO SISTEMAS $ a melhor re- 
vista sobre Informdtica deste pafs: voces es- 
tao de parab4ns. 

Mas, como cedo ou tarde um pouco dq- 
quela arrebatadora emopao do primeiro en- 
contro passa e nos deixa raciocinar melhor. 



me vejo agora no direito (que aliAs, nao sei 
de onde tirei) de fazer algumas reivindica- 
poes para dar um pouco mais de colorido a 
este meu namoro : se for possfvel, publiquem 
mais cursos de programapao (FORTH, 
MUMPS, Pascal...), pois 6 a melhor forma de 
podermos seguir a r6pida evolupao da cornu- 
nicapao programadores-sistemas. 

Pepo tambdm mais programas vo I tad os 
para a Area de cilculos e problemas s6rios 
(com respectivos f luxogramas) e, quern sabe, 
uma sepaozinha de hardware, mesmo que 
pequenina. Isto porque sou tamWm apaixo- 
nado (que voluvel, nao?) pela eletronica. 

Bern, desde j£ os meus agradecimentos a 
voces e podem ter certeza que o meu namo- 
ro, e o dos meus companheiros leitores, esta- 
r£ sempre aceso enquanto pudermos ver nas 
bancas a nossa MICRO SISTEMAS. 

Marcos A. Pires 
Mogi das Cruzes — SP 

Otimo, Marcos. Aqui todo mundo ga- 
mou por wa carta: ganta como voc4 nosdi 
uma alegria especial por nosao trabalho. E 
quanto As suas sugestdes, estao todas anota- 
das. 



£ NEWPOS / 

Otimo o artigo "O NEWDOS que r\So es- 
ta nos manuais", subscrito por Renato De- 
giovani, publicado em MS nP 31. Apenas a 
tftulo de informapao, o autor na parte de 
Manipulapao dos Dadps do Diretdrio nao 
menciona a reparap§o do GAT. Nao obede- 
cida esta providdncia, na prdxima gravapao 
de programas no disquete poder£ haver su- 
perposipao desastrosa sobre o programs re- 



cuperado. 

Embora o reparo no GAT possa ser feito 
usando os recursos do SUPERZAP, o mais 
prStico e seguro ser£ a gravapao do programa 
recuperado em outro disquete. O programa 
poderS tambdm, eventual mente, ser regrava- 
do no disquete-teste, desde que se tome cui- 
dado de digitar o nome do programa e a ex- 
tensao de forma identica as originais. 

Bastante recomend^vel para quern quiser 
se aprofundar no assunto a leitura do livro 
*TRS-80 Disk and other mysteries", de Har- 
vard C. Pennington. 

Antonio Roberto Barrichello 
Piracicaba — SP 



Agradecemos a atenpao, voc6 esti corre- 
to, realmente houve esta falha no texto, se 
bem que o DIRCHECK con tinu aria a apre- 
sentar o problems. Com relapao A sugestao 
para consertar esta falha, o autor, Renato 
Degiovani, discords da solupao apresentada, 
pois, segundo ele, com a monitorapao do 
DIRCHECK o uso do SUPERZAP torna-se 
bastante seguro. 



Envie suas correspondencies para: ATI — 
Anftlise, Teleprocessamento e InformAtica 
Editors Ltda., Av. Presidents Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030, SepSo Cartas/ Red apfo 
MICRO SISTEMAS. 
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GARANTA 
SUA MS 
TODO MES! 



ASSINE HOJE MESMO E RECEBA GRATUITA- 
MENTE 6 NUMEROS A SUA ESCOLHA A PARTIR 
DO N? 13. PREENCHA O CUPOM ABAIXO (OU 
UMA XEROX, CASO VOCC NAO QUEIRA CORTAR 
A REVISTA): 



Empresa 

Prof issAo/Cargo . 



Enderepo para remessa. 



Assinatura Anual: □ Micro Sistemas 



Cr$ 50.000,00 



GRATIS! 6 NUMEROS ATRASADOS. 



Preencha um cheque nominal A ATI Editors Ltda., e envie 
para: Av. Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20.030 - Tels.: (021) 262-5259 e 262-6306 
R. Oliveira Dias, 153, Jardim Paulista, S£o Paulo, SP, CEP 
01433 - Tels.: (01 1 ) 853-3574 e 853-3800. 

Seu recibo ser a enviado pelo Correio. 



A Compumicro 
vai deixar voce 
com a melhor 
impressao 
doUnitronAPII 



Nao existe nada mais 
pessoal do que uma impressao 
digital. Ela e unica. Ninguem 
tern igual. O mesmo acontece 
quando voce compra o seu 
UNITRON AP II na 
COMPUMICRO. 

Aqui voce tern um atendi- 
mento personalizado e exclusivo. 

O que este atendimento 
tern de exclusivo? E que na 
COMPUMICRO voce tern todas 
as informa^oes do produto 
antes mesmo da compra. Ou 
seja, nossa equipe de analistas. 




todos de nivel superior, estu- 
da o seu caso e indica-lhe a 
melhor configura^ao para as 
suas necessidades. Se voce nao 
puder vir ao nosso escritorio, 
onde sera recebido com todo 
conforto e tera a sua disposi- 
$ao um analista com todo o 
tempo disponivel para 
mostrar-lhe o produto, nos ire- 
mos ate voce. E apos a compra 
continuamos oferecendo nossa 
assessoria, prestando-lhe assis- 
tencia tecnica, etc... 

E sabe quanto voce paga 
a mais por isso? Nada. 

Venha comprovar. 
Estamos esperando por voce. 

Pessoalmente. 




corpu 




. r y y^yv^/ 

INFORMATICA EMPRESARIAL LTDA 

Rua Vie ek.- Sctcmhii), 99 - 1 1 andir 
Tel.: I>BX(021 )22+7(Xr 
CEP 2(X)S0 Hit > de. laneirt ) - R| 













Com a abertura do mundo do teleprocessamento ao usuario 

de sistemas pessoais, torna.-se indispensavel 

saber como se processa a comunicacao entre os micros 



A viagem dos dados 



Roberto Quito de Sant' Anna 



S em duvida a grande coqueluche 
do momento — uma vez assenta- 
da a poeira causada pela intro- 
du9ao dos micros pessoais no 
Brasil -da transmissSo de dados ou co- 
munica9ao entre mdquinas. Isto pode 
ser comprovado pela consolida95te do 
Projeto Ciranda, experiencia pioneira da 
Embratel, pela implanta^o do Ciran- 
dao, da mesma Embratel, do Videotexto 
da Telesp, e da proliferate dos CBBS 
(Computer Bulletin Board Systems). 
Este artigo pretende dar ao leitor uma 
visSo geral e simplificada, tanto quanto 
o permitir a alta complexidade da tecno- 
logia envolvida, de todo o mecanismo 
atraves do qual os dados oriundos do 
seu micro ou terminal podem atingir o 
que quer que esteja conectado na outra 
extremidade da sua linha telefonica. 

As redes de comunica9ate de dados j i 
sao usadas hi muitos anos nos sistemas 
de grande porte, tais como os que aten- 
dem aos grandes bancos, empresas de 
avia9ao e tergaos do Governo, entre ou- 
tros, sendo que, em termos de compu- 
ta9ao pessoal foi mais uma vez, o Proje- 
to Ciranda o responsavel pelo inicio de 
sua difusSo entre nos. As vantagens da 
comunica9So de dados sao muito nume- 
rosas e dentre elas destacamos: 

• acesso de um numero muito maior de 
pessoas aos sistemas de Processamento 
de Dados; 

• redu9ao acentuada dos erros de trans- 
cri9ao e de entrada de dados, uma vez 
que estes sao coletados, j i em forma le- 
givel pela maquina, nos prteprios pontos 
de origem da informa^o — lojas, postos 
de gasolina, bancos, etc.; 
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REQUISITOS COMUNS A TODOS OS SERVICOS DE COMUNICACAO DE DADOS: 




. DISPONIBILIDADE DO SISTEMA. QUANDO SOLICITADO 
. CONFI ABILIDADE NA TRANSMISSAO 
. PROTEC AO PRENTE A ERROS 
. SEGURANC* NA COMUNICACAO 





Figura 1 - Servigos de comunicagdo de dados. Fonte: BARRADAS, O. e RIBEIRO, 
Marcelo R, Sistemas analdgicos-digitais, Rio de Janeiro, LTC, 1980 , p 989 - 990 . 



• coleta e dissemina9£o imediata da 
infornrao, i velocidade eletronica. Por 
exemplo, em um banco eletronico, o 
saldo da conta do cliente e atualizado 
instantaneamente ap6s cada transa9So, 
ficando imediatamente disponivel a to- 
das as agendas do pais, tornando o 
cliente um cliente de todo o banco e 
nao de uma unica agenda; 

• redu9ao dos custos operacionais, 
atraves de centraliza9§o do processa- 
mento; 

• maior seguran9a - nos grandes siste- 
mas existem sempre dois ou mais compu- 



tadores em localiza96es diferentcs, um 
deles em reserva (stand-by) e em condi- 
9tees de assumir instantaneamente o 
processamento. 

As aplica9(5es da comunica9^o de da- 
dos sao, tamb&n, muito variadas, e os 
servos mais importantes s2o sumariza- 
dos na Figura 1 . Para tais aplkrtees 
existem dois tipos bdsicos de liga95es a 
serem estabelecidas: o primeiro, chama- 
do em-linha (on-line) e aquele no qual a 
infomrao 4 trocada diretamente com 
o computador, tipicamente em uma 
aplica9ao de consulta realizada por um 




Figura 3 - Modelo de um sistema de comunicagdo de dados (ETD= Equipamento 
terminal de dados; ECD -Equipamento de comunicagdo de dados). 



terminal de caixa bancdrio ou de balcSo 
de reserva de passagens; o segundo, 
chamado fora-de-linha (off-line), e aque- 
le em que as informa9<5es s£o “estoca- 
das” temporariamente em um dispositi- 
vo qualquer de memoria para serem 
posteriormente processadas pelo compu- 
tador, tipicamente a entrada de progra- 
ma remoto ou o processamento remoto 
por lotes. 

ESTABELECIMENTO 
DE UM MODELO DE SISTEMA 
DE COMUNICA 0 ES 

Para melhor situar o leitor, nosso 
passo inicial sera estabelecer um modelo 
que nos permitird acompanhar todo o 
processo da comunica92o, da origem ou 
fonte ao destino ou destinatdrio (ver 
Figura 2 ). 

0 objetivo de qualquer sistema de co- 
munica95es 6 o transporte da informa- 
9ao ou mensagem, em forma tio Fiel 
quanto possivel, entre a fonte e o destina- 
tiho. Como a fonte e o destinat^rio 
podem estar a grande distancia um do 
outro, e necessdrio que haja um canal, 
encarregado do transporte propriamente 
dito da mensagem, atraves de um meio, 
evidentemente com alguma perda de 
intensidade (atenua^o), altera93te de 
suas caracteristicas (distor9ao) e acresci- 
mo de componentes nSte existentes na 
mensagem original (rufdo, representado 
na figura como uma fonte geradora ex- 
terna). 0 emissor encarrega-se de colo- 
car a mensagem em uma forma apropria- 
da i transmissSo pelo meio, atraves de 
um processo chamado modula9ao, alem 
de prover a necessdria energia para com- 
pensar as perdas durante o trajeto. Por 
outro lado, o receptor retira a energia 
do meio e recupera a mensagem (demo- 
dulate). Como, via de regra,a natureza 
da informa95o gerada pela fonte nSo 6 
adequada ao acionamento do canal, sur- 
ge a necessidade de mais dois elementos, 
que completarlo o nosso modelo: o 
codificador, que pode dar i mensagem 
uma forma totalmente diversa, por^m a 
ela inequivocamente relacionada - a le- 
tra A, por exemplo, poderia ser transfor- 
mada no cddigo 1 1000 - e o decodifica- 
dor, no outro extremo do canal, encar- 
regado de reconstituir a informa9Ste. 

No caso particular da comunica^o 
de dados, o sistema de comunica^es 
pode ser mais apropriadamente descrito 
pelo modelo da Figura 3 . Nela, os blo- 
cos ETD (Equipamento Terminal de 
Dados) representam a fonte e o destina- 
tdrio, que podem ser dois computadores 
ou um terminal e um computador. Os 
blocos ECD (Equipamento de Comuni- 
ca9ao de Dados), por sua vez, represen- 
tam todo o equipamento necessdrio i 
adequa9ao do sinal ao meio de transmis- 
s^o e vice-versa, realizando as fun90es 
do codificador/emissor e do receptor/ 
decodificador. 
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Figura 4 - Transmissao paralela. 



TIPOS DE TRANSMISSAO 

Existem dois modos bdsicos segundo 
os quais os dados podem ser transmiti- 
dos entre dois pontos: o serial e o para- 
lelo. Imaginemos a transmissao de 1 
byte (8 bits) * 1 entre um registro de 
origem e outro de destino (ver Figura 
4). Se ligarmos cada um dos bits do re- 
gistro de origem ao bit correspondente 
do registro de destino, avisarmos ao re- 
gistro de destino, de alguma forma, que 
os dados estao prontos no registro de 
origem, e permit irmos ao registro de 
destino aceitar esses dados, teremos uma 
transference simultanea de todos os 
bits, o que caracteriza uma transmissao 
paralela. Se, por outro lado, tivermos 
um unico fio ligando os dois registros e 



*7. Nota do autor - Um bit 4 igual a um d(gi- 
to bindrio, isto e, a menor unidade de infor- 
mapfo exist ente em um sistema de compu - 
tagao: pode assumir, a cada instant e, apenas 
um entre dois va lores possfveis, 0 e 1. 



permitirmos que os bits passem um de 
cada vez, em seqiiencia, rumo ao regis- 
tro de destino, teremos uma transmissao 
serial. Na Figura 5, os bits 1, 2 e 3 j £ 
atingiram o destino, o bit 4 esti a cami- 
nho, e os bits 5, 6 , 7 e 8 aguardam, ain- 
da na origem, a sua vez. Evidentemente, 
a transmissao paralela e muito mais ra- 
pida mas, em compensa^o, a serial e 
muito mais barata, por necessitar de 
apenas uma linha de dados — mais uma 
vez o eterno compromisso da Engenha- 
ria: economizar tempo ou dinheiro? De 
modo geral, o problema e resolvido 
assim: no interior do computador, no 
movimento de dados entre registros da 
UCP ou entre UCP e memoria, onde a 
velocidade e fator fundamental e as dis- 
tances sao curtissimas, a transmissao e 
paralela; jd a comunica 93 io entre um 
computador e um terminal e serial, pois, 
al£m da economia da interconexffo, os 
dados, mesmo transmitidos serialmente, 
se deslocam com velocidade muito 
maior que a de leitura ou de digita^o. 
Resumindo, praticamente toda a trans- 
missao de dados externa ao computador 
e feita de modo serial. £ evidente que, 
em qualquer caso, todos os caracteres 
devem ter o mesmo tamanho,ou seja, o 
mesmo numero de bits. Mais adiante 
falaremos nos cddigos usados na trans- 
missao de dados. 

A transmissao serial pode ser feita, 
ainda, de duas formas: sincrona e assln- 
crona. Na forma sincrona, os caracteres 
sao transmitidos em um fluxo continuo, 
em um unico bloco, existindo uma per- 
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6b - Transmissao assincrona 















Figura 6 - Exemplos de transmissao dos caracteres A e B no modo sincrono (6a) e 
no modo assincrono ( 6b), com 1 bit de parada e paridade impar. Note que as esca- 
las sao diferentes. 



feita sincroniza 9 ao entre o emissor e o 
receptor, de modo que este possa sem- 
pre saber o momento exato de “ler” um 
bit, o infcio e o tdrmino de um cardter 
e o inicio e o termino da mensagem. 0 
sincronismo pode ser obtido atravds da 
transmissao de um trem de pulsos de re- 
logio (clock) em uma linha separada (ver 
Figura 6 ) ou dotando-se o receptor de 
um clock estdvel, amarrado em pulsos 
de sicronismo transmitidos no inicio da 
mensagem. Note que os caracteres sSo 
sempre transmitidos, no modo sincrono, 
sem qualquer intervalo entre eles, o que 
toma este modo impossivel de ser utili- 
zado na liga 9 ao entre um terminal e um 
computador: ninguem pode digitar t 2 o 
rapidamente. Na transmissao assincrona, 
os caracteres podem ser transmitidos 
aleatoriamente no tempo, com qualquer 
intervalo entre eles, e sem limita 9 *o do 
tamanho da mensagem. Sempre que for 
necessdrio transmits um carater, o emis- 
sor se encarrega de avisar ao receptor o 
inicio da transmissao, atravds de um bit 
adicional (start bit = bit de partida, cor- 
respondente a uma interrup 9 ao do sinal 
na linha) precedendo o cddigo corres- 
pondente, e o fim da transmissao, 
atraves de um ou dois bits de parada 
(stop bits, correspondendo i condi 95 o 
de marca ou de repouso, isto e, existen- 
cia de sinal na linha) conforme mostra- 
do na Figura 6 . Desta forma, o receptor 
pode relaxar, sabendo que seii sempre 
avisado da transmissao de um cardter 
com a antecedencia suficiente para que 
possa, atravds de seu prdprio clock, sin- 
cronizar seus circuitos para ler cada 
um dos bits no momento apropriado. A 
transmissao assincrona tern como princi- 
pal desvantagem em rela 9 So a sincrona 
uma mi utiliza 9 ao do canal. Em com- 
pensa 9 ao, a transmissao sincrona, alem 
de muito mais dispendiosa em termos de 
equipamento, nao pode ser usada em 
muitos casos, como o mostrado acima pa- 
ra o terminal. Na liga 9 ao que mais nos 
interessa, ou seja, entre um micro do- 
mestico ou profissional e outro micro 
ou uma rede, a transmissao sempre ser i 
serial e assincrona. 

O MEIO DE TRANSMISSAO 

Para que uma determinada informa- 
9 §o possa ser transmitida entre dois 
pontos, a mesma tern que ser superposta 
a um sinal de natureza eletrica,que ter i 
um ou mais de seus pardmetros altera- 
dos de acordo com a natureza da infor- 
ma 95 o. Normalmente o sinal el&rico 
utilizado 6 uma onda senoidal cuja am- 
plitude instantSnea 6 dada por x(t)= A 
cos ( 2 ) tt ft + 0 ), onde t e o tempo em 
segundos e A (amplitude), f (freqiiencia) 
e 0 (fase) sao os parametros que pode- 
mos fazer variar. Se variarmos o parame- 
tro desejado de forma continua, de 



sinal na entrada da linha 




sinal na saida da linha 



Figura 7 - Distongao do sinal digital em uma linha telefonica. 



modo a constituir uma replica da infor- 
ma 9 ao original, o sinal resultante ser i 
dito um sinal analdgico; se, por outro 
lado, permitirmos que o parametro a ser 
variado assuma somente um certo nume- 
ro de valores, chamados de valores ou 
niveis discretos, estaremos em presen 9 a 
de um sinal digital. 0 caso mais conhe- 
cido de sinal digital, aquele que possui 
apenas dois niveis, e o sinal bindrio. Os 
sinais podem, ainda, ser submetidos a 
processos de codifica 9 do, com o resulta- 
do Fmal diferindo completamente do 
sinal initial; o importante e que o con- 
teudo da informa 9 ao se mantem inalte- 
rado e pode ser integralmente reconsti- 
tuido no destino. 

0 processo segundo o qual alteramos 
um ou mais dos parametros de um sinal 
6 chamado modula^o, e o sinal modifi- 
cado, que vai transportar a nossa infor- 
ma 9 do at 6 o destino, e chamado de onda 
portadora. 

O meio de transmissao por excelencia 
para a transmissao de dados e o canal 
telefonico comum, acessivel atraves de 
um par de fios de nossa linha telefonica, 
projetada e instalada para a transmissao 
de voz em forma analdgica. 

A voz humana 6 um sinal complexo e 
a sua energia esta distribuida de modo 
n3o uniforme em uma faixa de frequen- 
ces compreendida entre 15Hz e 15000 
Hz, aproximadamente, com a maior 
concentra 9 ao ocorrendo entre 300Hz e 
3400Hz. Por questOes de economia, os 
canais de voz transmitem apenas essa 
faixa de frequences, chamada de banda 
passante, largura de banda ou largura de 
faixa da linha (B=f 2 - fj =3100 Hz). A 
banda passante 6 a principal caracteris- 
tica de um canal de voz, sendo a respon- 
sdvel pela velocidade maxima de trans- 
missao, em bits por segundo (bps), do 
canal. Os canais telefonicos podem ser 
comutados (o destino e atingido atraves 
de uma rota escolhida ao acaso, em fun- 
910 das disponibilidades da rede telefo- 
nica, como em uma liga 9 £o comum), ou 
privativos (dedicados, alugados), consti- 
tuindo uma liga^o ponto-a-ponto, dis- 
ponivel ao usuario 24 horas por dia. A 
escolha entre comutada e privativa 
depende de uma sdrie de fatores, princi- 



palmente do volume de trifego e,como 
regra geral, a linha privativa oferece me* 
lhor qualidade de transmissao. Embora 
teoricamente muito maiores, as veloci- 
dades maximas de transmissao obtidas 
em linhas telefonicas ficam, na pratica, 
limitadas a 9600 bps, em virtude de 
outras caracteristicas restritivas, tais 
como a atenua 9 ao, disto^o, rui'do, eco 
e estabilidade. O leitor mais curioso no 
assunto podera queimar pestanas duran- 
te muitas horas consultando a bibliogra- 
fia citada. 

O EMISSOR E O RECEPTOR 

J a vimos que as linhas telefonicas 
foram projetadas para transmits fre- 
qiiencias de voz na faixa de 300-3400 
Hz, e que os sinais de voz sao sinais 
analdgicos. Se injetarmos em uma linha 
telefonica os sinais bin^rios oriundos de 
nosso computador, o resultado na outra 
extremidade ser^ o mostrado na Figura 
7 : ao invds de um sinal claro, de transi- 
96 es bem nitidas, obteremos um sinal 
distorcido, no qual as transi 90 es se 
mostram bem atenuadas, e que poderd 
ser mal interpretado pelo equipamento 
de recep 9 ao, que terd eventualmente di- 
ficuldade de distinguir entre os niveis 0 
e 1 . A distor 9 ao sera tanto maior quanto 
mais estreita for a banda passante da li- 
nha, pois a decomposi 9 ao de um sinal 
bindrio nos mostra que nele estao pre- 
sentes componentes de altissima fre- 
qiiencia, as quais serdo brutalmente ate- 
nuadas ao passarem pela linha, sendo 
virtualmente inexistentes na saida. 
Como seria economicamente invidvel 
aumentar a largura de banda das linhas 
telefonicas (elas chegaram primeiro, 
lembre-se), e j i que elas atendem perfei- 



tamente a Finalidade para a qual foram 
projetadas. a solu 9 ao mais inteligente e 
que foi a adotada e a de adaptar o sinal 
i linha, o que pode ser feito atraves de 
um modem. O modem, cujo nome e for- 
mado pela contragao das palavTas 
modulador e demodulador, e um 
equipamento bidirecional que, instalado 
nas duas extremidades de um canal de 
comunica 9 ao de dados, tern por fun 9 ao 
adequar um sinal bindrio oriundo de um 
computador as caracteristicas da linha 
(funcionando como emissor), e vice-versa 
(funcionando como receptor). Para a 
maioria dos efeitos praticos, o modem e 
o proprio ECD da Figura 3. 

O tipo mais comum de modem e o 
chamado modem analogico, atraves do 
qual os niveis binarios 1 e 0 (tambem 
chamados de marca e espa 9 o, respecti- 
vamente) sao transformados em tons se- 
noidais puros, que vdo modular uma 
portadora senoidal cuja freqiiencia esta 
dentro da banda passante da linha tele- 
fonica, podendo, entao, ser transmitida 
praticamente sem distar 9 £o. Na extremi- 
dade de destino, um outro modem se 
encarrega de demodular esta portadora, 
extraindo da mesma os tons de marca e 
de espa 90 , que, ap 6 s reconvertidos em 
niveis binarios, serao entregues ao com- 
putador (ver Figura 8 ). Simples, n£o? 

Dado o carater universal das redes de 
telecomunica 9 oes, torna-se necessdria 
uma normaliza 9 ao ou padroniza 9 ao rigo- 
rosa dos equipamentos. Assim, a Uni§o 
Internacional de Telecomunica 9 ( 5 es 
(UIT), da qual o Brasil e membro, atra- 
ves de seu Comite Consultivo Interna- 
cional de Telegrafia e Telefonia (CCITT) 
estabeleceu o chamado padrao CCITT 
de modems, tambem conhecido como 
padrao europeu, adotado pelo Brasil. 
Outros paises, liderados pelos Estados 
Unidos, utilizam o chamado padrSo 
BELL, ou padrao americano, normali- 
zado pelo Bell System. 

As normas estabelecidas pelo CCITT 
dizem respeito, basicamente, ^s taxas 
(ou velocidades) de transmissao da in- 
forma 95 o, sendo as mais usuais as de 
150, 300, 600, 1200, 2400, 4800 e 
9600 bps, e aos tipos de modula^o, 
normalmente em freqiiencia (FSK= Fre- 
quency Shift Keying = modula 9 ao por 
desvio de freqiiencia) ou em fase (PSK 
=Phase Shift Keying= modula^o por 




Figura 8 - Mo du lag do e demodulagao do sinal digital. 
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A VIAGEM DOS DADOS 

desvio de fase), este para velocidades 
acima de *1200 bps. Ainda um mesmo 
modem pode ter velocidades diferentes 
para transmisslo e recep 9 So: o tipo uti- 
lizado para acesso ao Videotexto trans- 
mite a 75 bps e recebe a 1200 bps *2. 
No campo da computa 9 ao pessoal, con- 
tudo, a tendencia e adotar a comunica- 
9 §o serial, assincrona, a 300 bps. Existe 
uma certa tendencia em confundir bps 
e baud como unidades de medida de 
velocidade de transmissao. A unidade 
baud, que recebe este nome em homena- 
gem a Baudot, um dos pioneiros das te- 
lecomunica 96 es, e mais corretamente 
aplicada i medida de velocidade de 
transmissao de sinais telegrdficos. Baud 
representa o numero de vezes que o 
estado da linha se modifica por segundo. 
Como, na maioria das aplica 90 es de tele- 
processamento, a condi^o da linha e 
alterada exatamente pela presen 9 a ou 
ausencia de sinal, o numero que mede a 
velocidade em bps 6 o mesmo que a que 
mede em baud, dai a confusao. Por via 
das duvidas, a melhor maneira de nunca 
errar 6 expressar a velocidade sempre em 
bps. 

Existe ainda um tipo de modem, co- 
nhecido como modem digital. A rigor 
este tipo n£o deveria ser chamado de 
modem, uma vez que nSo realiza a mo- 
dula 9 ao/demodula 92 o do sinal, e sim 
uma simples mudan 9 a na sua representa- 
9 ao digital (codifica 9 ao) e na representa- 
9 ao eletrica (forma do sinal), transfor- 
mando-o em um outro sinal digital, po- 
rem mais adequado is cond^oes da li- 
nha. Embora seu alcance seja muito res- 
trito, n£o ultrapassando 300m, constitui 
uma solu 9 ao economica e aceitavel para, 
por exemplo, liga 90 es dentro de um 
mesmo predio. Os modems digitais nS'o 
sao normalizados pelo CCITT, nSo ha- 
vendo, portanto, compatibilidade entre 
os modelos dos diversos fabricantes. 

O alcance dos modems digitais dimi- 
nui conforme aumenta a velocidade de 
transmissao. Transmitindo a 300 bps, 
pode-se operar com um modem digital 
em distancia de ate 4.500m. J i a 600 
bps, o alcance deste equipamento dimi- 
nui para 300 metros. Por suas caracteris- 
ticas, os modems digitais em geral sSo 
bem mais baratos que os analogicos. 

Outro equipamento n£o padroniza- 
do pelo CCITT e o acoplador achstico, 
dotado de um bocal emissor e outro re- 
ceptor nos quais o monofone do apare- 
lho telefonico e encaixado diretamente, 

• 2. Nota da redag do - A variagao entre as ve- 
locidades de recepgdo e emissdo de dados 
pode ser explicada uma vez que o numero de 
informagoes que o usudrio do sistema Video- 
texto deverd fornecer sdo poucas, ja que ele 
basicamente apenas escolhe as pdginas que 
quer acessar. Jd as informagoes provenientes 
do banco de dados sdo muitas, o que requer 
uma velocidade maior na transmissao. 




Figura 9 - Modos de ligagao. 



com toda a transference de informa 9 ^o 
ocorrendo pelo ar, sem qualquer liga^o 
eletrica com a rede telefonica. AJem de 
sujeitos a interferences de ruidos exter- 
nos, causados muitas vezes pelo fato do 
fone do aparelho telefonico nSo se adap- 
tar ao acoplador, sua velocidade de 
transmissao e relativamente baixa, n£o 
ultrapassando 300 bps. 

A liga 9 ^o entre os modems pode ser 
feita ainda de tres modos (ver Figura 
9): o modo simplex, sem utilidade prati- 
ca, pois permite a comunica 9 ^o apenas 
em um unico sentido; o modosemi-du- 
plex (half-duplex), que permite a liga 9 ^o 
nos dois sentidos, porem nSo simulta- 
neamente; e finalmente, o modo duplex 
(full-duplex), permitindo a comunica^o 
simultanea nos dois sentidos, e que pode 
ser a dois fios (exatamente como o tele- 
fone a que estamos habituados, utili- 
zando um circuito hibrido ou um aco- 
plador direcional para separar os sinais 
emitido e recebido) ou a quatro fios, 
mais conftevel porem mais caro, por ne- 
cessitar de duas linhas separadas. 

O CODIFICADOR 
E O DECODIFICADOR 

Em nosso sistema de comunica 9 ^o de 
dados as fu^Ces de codifica^o e de 
decodifica 93 o sao normalizadas pela 
EIA — Electronic Industries Associa- 
tion, dos EUA, at raves do Padrao RS 
232-C, compativel com o CCITT, cuja 
realiza 9 So fisica e conhecida como inter- 
face padrao RS 232-C (o “C” significa a 
terceira versao) e que pode ser identifi- 
cada pela existencia, nos equipamentos 
que a contdm, de um conector padr5o 
de 25 pinos, de forma trapezoidal. 

A interface padrao RS 232-C e a res- 
ponsdvel pela interconexffo entre o ETD 
e o ECD, em forma bilateral, definindo 
as caracteristicas eletricas dos circuitos 
de transmissao e recep 92 o de dados, os 
seus niveis de tensao e os sinais de dados 
e de controle necessdrios. Na transmis- 



sao de dados, o estado 16gico 1 (marca) 
e deFmido como sendo uma tensSo nega- 
tiva entre -15V e —25V, enquanto que 
o estado 0 (espa 9 o) e definido como 
uma tensao positiva entre +15V e +25V, 
tudo referenciado ao “terra” ou “massa” 
(ponto comum) de sinal e com previsao 
de um queda de tensao de ±12V ao lon- 
go das linhas de transmissao. Como os 
receptores sao obrigados a reconhecer 
sinais de no minimo ±3V, sobra uma 
margem de seguran 9 a (regi£o de transi- 
9 ao) de 6 V entre os niveis 1 e 0, o que 
contribui para aumentar a imunidade a 
ruidos e a diferen 9 as de potencial de 
massa. 

OS CODIGOS 

Um dos mais importantes passos para 
o desenvolvimento da comunica^o de 
dados foi a padroniza 9 ao dos cddigos, 
visando a que os diversos equipamentos 
pudessem “falar” entre si. O primeiro 
esfor 90 de padroniza 9 <to data de 1963, 
atrav^s do cddigo ASCII63 (ASCII e a 
sigla de American Standard Code for 
Information Interchange -, Codigo Pa- 
drao Americano para Intercambio de In- 
forma 9 ao), e a versao atual do cddigo 
ASCII, surgida em 1968, adotada em 
Smbito mundial. Ver Figura 10. 

O codigo ASCII e um cddigo de de 7 
bits, possibilitando um total de 128 
(= 2 7 ) combina 9 des vdlidas. A esses 7 
bits e adicionado um oitavo bit, chama- 
do bit de paridade, com o objetivo de 
diminuir a incidencia de erros na trans- 
missao. Por exemplo, o bit de paridade 
poder 2 ser 0 ou 1 conforme o numero 
de bits 1 do cddigo considerado seja par 
ou impar - o receptor conta os bits 1 
de cada cddigo e, caso a contagem n£o 
seja um numero par (paridade par), 
envia um sinal ao emissor para que este 
transmita novamente o cddigo. E 
evidente que se, devido ao rui'do, houver 
a inversao de dois bits quaisquer, o erro 
nao podera ser detectado por este meto- 
do. Os bits adicionais introduzidos nos 
cddigos, como o bit de paridade, n£o 
cont^m informa 9 ao. sendo chamados de 
redundantes. Quanto maior for a redun- 
dance de um cddigo, menor sera a efi- 
ciencia do canal, definida como o resul- 
tado da divisao do numero de bits de 
informa 9 ao (os bits uteis) pelo numero 
total de bits transmitidos. 

Outros cddigos normalmente usados 
em comunica 9 S:o de dados sio o Baudot 
(para teleimpressores) e o EBCDIC 
(Extended Binary Coded Decimal Inter- 
change Code), usado nos equipamentos 
IBM. 

Alem da mensagem propriamente 
dita, deve transitar pelo canal um cons- 
tante fluxo de informa 9 des entre as md- 
quinas envolvidas na comunica 9 £o. Esse 
fluxo de informa 9 des, que 6 o responsd- 
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vel pelo estabelecimento, manute^ad, 
controle e desconexdo da comunica 9 do, 
recebe o nome de protocolo (handsha- 
king, “aperto de maos”). As duas colu- 
nas da esquerda da Figura 10 mostram 
os caracteres de controle do cddigo 
ASCII, e seus significados constam da 
legenda. Remeto o leitor interessado, 
mais uma vez, a bibliografia especializa- 
da, para maior aprofundamento no 
assunto. 

CONCLUSAO 

Espero que este artigo tenha conse- 
guido satisfazer a curiosidade do leitor 
apenas curioso e que tenha fornecido 
aquele mais interessado, desejoso de 
maiores conhecimentos, o embasamento 
necessario i leitura dos papiros especia- 
lizados no assunto. 

Para finalizar, um lembrete: de nada 
adianta toda a parafernalia de equipa- 



mentos e tecnicas de comunica 9 ao de 
dados se n£o dispusermos do software 
de comunica 9 ao, indispensavel ao geren- 
ciamento de todo o processo e, por si 
s 6 , assunto para muitas e muitas pagi- 
nas. Por uma questao de fidelidade ao 
objetivo, que foi o de abordar apenas os 
aspectos t^cnicos da comunica 9 ao, a sua 
nao cita 9 ao no texto foi intencional. 
De qualquer modo, aqui, como em qual- 
quer outra aplica 9 ao, e o software que 
toma o computador em algo util - sem 
ele, o nosso computador nSo passara de 
um enfeite (?) de mesa ou mero peso de 
papel... 
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Eis as diferengas e algumas vantagens em se conjugar 
o verbo compilar, ao inves de interpretar, em se tratando 
de linguagem BASIC 



BASIC interpretado 
x compi/ado 

Marcel o Renato Rodrigues 



O sistema completo de progra- 
masao BASIC deve traduzir 
as suas instru^oes BASIC em 
instates que o microcom- 
putador entenda, ou seja, codigo-objeto. 
Os meios empregados para fazer essa 
conversao dependem do sistema BASIC 
que voce tern dispomvel, normalmente 
o interpretador BASIC. 

O interpretador converte cada instru- 
9ao para o cddigo-objeto, executando-a 
imediatamente ap6s a conversao. Isso i 
feito toda a vez em que o programa e 
rodado. O compilador, por outro lado, 
converte todo o programa em codigo- 
objeto. Entao, voce tera o seu programa 
sob duas formas: o programa-fonte, em 
BASIC, e o programa -objeto, em lingua- 
gem de mdquina. Este dltimo, quando 
submetido, dispensara a conversao das 
installs, atividade do interpretador. 
Para melhor entendimento desta anali- 
se, consideremos o BASIC da linha TRS 
80 , modelo III e o compilador BASIC 
da Radio Shack, o RSBASIC. 

VANTAGENS DO COMPILADOR 

0 RSBASIC traduz o programa-fon- 
te numa linguagem intermediaria, isto e, 
entre o BASIC e a linguagem de mdqui- 
na. Entre as vantagens enumeradas pelo 
fabricante duas merecem atensao: so o 
autor do programa podera conhece-lo, 
pois e o unico dono do programa-fonte 
e a linguagem intermediaria e desconhe- 
cida; alem de sua economia de memoria 
e espa<jo em disco. 

A primeira tern importancia para o 
programador que pretende comercializar 
os seus aplicativos. A segunda vantagem 



e ofuscada pelo grande espa^o que o 
compilador ocupa na memoria. Mas a 
vantagem e absolutamente verdadeira 
com rela9ao aos arquivos em disco. 

0 usuario do compilador sera inicial- 
mente surpreendido, tanto pelo maior ri- 
gor sintatico das instn^oes - por exem- 
plo, observancia dos espa90s entre as 
palavras componentes das instates — , 
quanto pelos produtos documentais do 
processo de compila9ao, como a lista- 
gem comentada do programa, o mapa 
das varidveis e a listagem de referenda 
cruzada, na qual sao relacionadas as va- 
ridveis e as linhas do programa-fonte 
onde elas sao referenciadas (figura 1). 
Tais produtos sao familiares ao usuario 
que trabalhou ou trabalha com compu- 
tadores de maior porte. 

DIFERENQAS DE LINGUAGEM 

Um aspecto importante a ser demons- 
trado e quanto as diferen9as de linguagem 
dos dois processos. A primeira delas e com 
rela9ao a maior precisao do BASIC com- 
pilado quanto a aloca9ao de espa90 na 
RAM, inexistindo a instru9ao CLEAR n, 
que executa a aloca9§o global de espa90 
para strings. Assim,a reserva de espa90 e 
feita variavel a variavel, atraves das instru- 
9oes DIM ou STRING. Nao havendo es- 
sa descr^ao, o compilador considerara 
o default de 255 bytes por variavel. 

Ainda com rela9ao a defini9ao de va- 
ridveis, outra diferen9a e o numero de 
digitos para o nome da variavel, que pas- 
sa de tres para seis, permitindo ter, por 
exemplo, duas variaveis distintas - SAL- 
DO 1 e SALD 02 - impossivel no inter- 
pretador, que consideraria para os dois 



casos apenas a variavel SAL. E entre as 
instru9des que atribuem valores as varia- 
veis, ha tres diferen9as significativas. 

A primeira delas e uma varia9ao do 
RESTORE, que permite apontar a se- 
qiiencia DATA a partir da qual-nos inte- 
ressa restaurar, atraves do apontamento 
do numero da linha que a conte'm. Nao 
se fomecendo o numero da linha, a ins- 
tru9§o funciona exatamente da forma 
usual. 

A segunda e a instru9ao SWAP, que 
troca valores entre duas varidveis, muito 
empregada em reordena96es. A terceira 
e ultima, a instru9ao INPUT, embora 
continue sendo de uso incomodo, foi 
aperfei9oada com formata9ao dos dados 
de entrada e especifica9ao do numero de 
digitos da variavel. 

SEGMENTAQAO DE PROGRAMAS 

Entre os dois sistemas, existem dife- 
ren9as significativas, que certamente fa- 
rao a cabega de usuarios mais exigentes. 
Por exemplo, sao disponiveis dois recur- 
sos poderosos voltados a segmenta9ao 
de programas durante a execu9ao: a trans- 
ference de controle para subprogramas 
e encadeamento de programas. 

Subprogramas sao sub-rotinas mais 
potentes que as usuais, pois trabalham 
com dados armazenados sob diferentes 
nomes de variaveis. Assim como as sub- 
rotinas comuns, os subprogramas sao 
chamados pelo programa principal e, 
apos sua execu9ao, retomam a ele. 0 
exercicio de sua aplica9ao revela as se- 
guintes vantagens em rela9ao a sub-roti- 
na convencional: 



RSBASIC ver 2-3 EXEMPLO/BAS- 

09/11/84 19:18:17 PAGE 1 

0000 00010 REM ♦PROGRAMA EXEMPLO COM UTILIZACAO* 

0000 00020 REM ♦ DO COMPILER BASIC * 

0000 00030 REM * 0 PROGRAMA SOLICITA NOME - * 

0000 00040 REM * E SOBRENOME * 

0000 00050 DIM S0BRE*20 

0000 00060 PRINT "QUAL E* SEU SOBRENOME 7 " 

OOOF 00070 PRINT CRT <2,0)5: INPUT SOBRE* 

00 2D 00080 PRINT CRT (6,0): "QUAL E’ 0 SEU NOME?" 

0040 00090 PRINT CRT'C>0)?: INPUT NOME* 

005E 00100 PRINT CRT(12,0); "OBRIGADO, " ? NOME*; " SOBRE*? 

0079 00110 END 

SYMBOLIC MEMORY MAP 
SCALARS 

00D6 NOME STRING*255 DODO SOBRE STRING*20 

CROSS REFERENCE LISTING 

SCALARS 

NOME 90 100 

SOBRE 50 70 100 

FINAL SUMMARY 

245 (OOFS) BYTES OF PROGRAM 

278 (0116) BYTES OF LOCAL -V.TA 

11 SOURCE LINES 

13 SOURCE STATEMENTS 

'*** COMPILATION COMPLETE *** 



Figura 1 

• 0 subprograma nao 6 chamado pelo 
numero da linha, mas pelo nome; 

• Os dados transferidos ao subprogra- 
ma nao necessitam de adequa9ao quanto 
ao nome das variaveis; basta apenas exis- 
tir compatibilidade entre elas, pois o 
mesmo dado tera um nome no programa 
principal e outro no subprograma; 

• Pode-se transferir matrizes ao subpro- 
grama. 

O subprograma e compilado com o 
programa principal, sendo integrante de- 
le, disputando espa9o na RAM, mas adi- 
cionando incrivel flexibilidade a seus 
programas. 

J i o encadeamento de programas 
(CHAIN) executa a segmenta9ao sem a 
ocupa9§o simultanea de espa90 na RAM. 
£ um metodo de dividir um programa 
muito grande em outros menores e menos 
complexos, sendo cada um deles carrega- 
do na memoria e executado separada- 
mente, embora trocando dados comuns. 

ENTRADA/SAIDA PARA 
TECLADO E MONITOR DE VIDEO 



A formata9ao de dados para entrada/ 
saida 6 um grande avan90 e a saida via 




monitor tern duas fun9oes especiais para 
posicionamento do cursor. A fun9§o CRT 
move o cursor para uma especifica loca- 
9ao linha coluna e a fun9§b CRTR (x,y) 
move o cursor x linhas e y colunas, a 
partir da posi9§o atual. £ o adeus ao 
PRINT 

Sao acrescidas, ainda, fun9oes para 
localiza9ao da posi9§o do cursor CRTy 
e CRTx, que fazem retornar os valores 
da linha-coluna aonde se encontra o cur- 
sor, e uma fun9ao para leitura de area 
especificada no video. 

ENTRADA/SAIDA PARA 
ARQUIVOS EM DISCO 

Diferen9as importantes sao observa- 
das na manipula9ao de arquivos em dis- 
co. Aldm de criar arquivos seqiienciais 
(figura 2) e randomicosou diretos (figura 
3 ), o RSBASIC elabora o arquivo ISAM 
(Indexed Sequential Acess Method), isto 
e, o arquivo seqiiencial indexado utili- 
zado pelos sistemas maiores, nos quais 
os registros sao alcan9ados por chaves de 
acesso e nao pelo numero de registro. 
Por exemplo, num arquivo de nomes e 
endere90s, a chave de acesso pode ser o 
sobrenome. Na leitura, os registros sao 




apresentados segundo a classifica9ao, em 
ordem alfab^tica, da chave de acesso, 
como no exemplo. da figura 4 , no qual a 
chave de acesso e a primeira letra do 
nome. 

De uma forma geral, a entrada/saida 
de arquivos pode ser string ou num^rica, 
nao havendo necessidade de converter 
dados numericos em strings para gravar, 
e vice-versa, apos a leitura. A inexisten- 
cia da instru9ao FIELD facilita tambem 
a leitura-grava9ao de vetores. Para entra- 
da/saida hi tres metodos: 

• Seriado — as virgulas separam os cam- 
pos dos registros; 

• Formatado - 6 empregada imagem- 
padrao para controlar a dispos^ao dos 
campos; 

• Bindrio - os dados numericos sao ar- 
quivados exatamente como estao na me- 
mdria. 

Alem dessas, hi outras diferen9as mais 
ou menos sutis em instru95es, fun^Oes e 
comandos que, se expostos, levariam a 
um tratamento mais aprofundado. Com 
rela9ao as facilidades de grande interesse, 
ha o RUNTIME, subsistema que apenas 
roda programas, ocupando menor espa- 
90 na memoria; o BEDIT, eficiente edi- 
tor BASIC; e o DEBUG, depurador de 
programas. 

Como se ve, hi numerosas vantagens 
com rela9ao aos recursos de linguagem, 
tomando o BASIC bem mais potente. 
Mas como no Brasil o emprego do BA- 
SIC compilado ainda e restrito, surgem 
problemas de disponibilidade de aplica- 
tivos no mercado e de incompatibilida- 
des, pois programas estruturados e desen- 
volvidos em BASIC compilado nao sao 
compativeis com o BASIC interpretado 
e vice-versa. 



Marcelo Renato Rodrigues 4 engenheiro eletri- 
cista formado pela Esco/a Politdcnica da Uni - 
versidade de Sao Paulo, em 1968. Trabalha na 
Companhia Energdtica de Sao Piau/o (CESP) 
como Assessor de Planejamento da Vice-Pre- 
sidencia de Produqao de Transmissao de Ener- 
gia Eldtrica. 
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Compartilhar recursos de custos elevados e informagoes 
produzidas por diversas estagoes sao algumas vantagens obtidas 
com o uso de redes locais 



Redes locais 

A maury Moraes Junior 



U ma rede de computadores consiste em um certo nu- 
mero de computadores interligados por um sistema 
de comunica^o. Dentro dessa filosofia, surgiu mais 
recentemente um tipo particular de rede, chamado 
Rede Local (Local Area Network — LAN). Nessas redes, as 
principals caracteristicas sZo a extensSo geogrdfica, de no ma- 
ximo poucos quilometros;a alta taxa de transmissSo, de 5 a 10 
Mb/segundo; e a ausencia de um processador central, isto 4 , to- 
dos os elementos conectados a rede possuem capacidade de 
processamento. 

Na medida em que as organiza9oes (bancos, industrias, hos- 
pitals etc.) come9aram a possuir um maior numero de compu- 
tadores, principalmente com o advento dos computadores de 
baixo custo, tornou-se necess£rio que estes equipamentos se 
interconectassem, para compartilhar recursos e infom^Ses. 

£ importante observar que embora o custo dos computado- 
res tenha diminuido constantemente, o pre90 dos equipamen- 
tos perife'ricos (discos, impressoras etc.) n£o acompanharam 
esta redu9$o, e seu alto custo justifica o seu compartiihamento 
entre v£rios usuarios. 

Entre as vantagens na utiliza9ao de uma rede local, pode- 
mos citar o aumento dos recursos fisicos (perifericos) dispo- 
niveis para cada esta9ffo; maior integra9^o entre aplica9<5es, 
atraves do compartiihamento de informa96es entre as diver- 
sas esta90es da rede; confiabilidade elevada, caracterizada pela 
inexistencia de um elemento centralizador (cuja falha compro- 
meteria o funcionamento global do sistema); baixo custo para 
pequenas configura9oes; e, por fim, o crescimento gradativo 
conforme as necessidades computacionais da organiza9£o. 



EM TRfiS NIVEIS 



Uma rede local pode ser implementada em tres diferentes 
nfveis de tecnologia. 0 mais elevado oferece maiores benefi- 
cios, tendo, em contrapartida um custo tambem elevado e im- 
plementa9ffo mais dificil. Em resumo, os nfveis de uma rede 
sao os seguintes: 

• Nivel 1 - 0 objetivo neste estagio e o de que varios usu£- 
rios possam compartilhar perifericos como impressoras, plot- 



ters, modems, equipamentos geralmente de pre90s elevados 
e que, utilizados por mais de uma esta9ao tern seu pre90 real di- 
vidido pelos departamentos. E devido ao baixo volume de sai- 
da desses dispositivos, nSo ha degrada9^o do sistema. 

• Nivel 2 — Os meios de armazenamento de rnassa , normal - 
mente discos do tipo Winchester sSo compartilhados pelos 
diversos usuarios do sistema. Porem ,4 necessdrio que a rede lo- 
cal tenha capacidade de transmits dados em altas velocidades. 
O compartiihamento requer software de controle de acesso a 
esses arquivos, para que a integridade das informa9(5es seja 
mantida. 

• Nivel 3 — Neste nivel n£o se trata de compartilhar disposi- 
tivos fisicos, mas sim a informa9?o existente no ambiente da 
rede local. Alem da capacidade de transmits em altas veloci- 
dades, este nivel requer facilidade no acesso simultaneo a ar- 
quivos e possibilidade de bloquear registros (lock), todos im- 
portantes para que se possa compartilhar informa96es. Inte- 
gridade dos dados, processamento distribuido, eliminagffo de 
redundance de informa9<5es, possibilidade de consolidar da- 
dos produzidos por diferentes pessoas sSo algumas das vanta- 
gens da implementa9ao deste nivel em rede local. 



FORM ANDO A REDE 



S2o os seguintes os principals componentes de uma rede 
(Figura 1): 

• Unidade de interface, que pode ser uma placa ou um gabi- 
nete externo. Ela permite que o micro possa falar com a rede 
local, e as mais sofisticadas fazem todo o processo de comu- 
nica9^o, liberando o micro para outras tarefas. 
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Figura 1 
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O Elppa II Plus e um micro compuladof 
§6 que lem macro vantagens 
t leilo quase a rtez anal mente. poManlo testado 
um a um 

E isso 4 uma macfo qu alidade. 

Como 4 leiio com componentes de alia quaiidade. 
dentro dos methores padrios de Engenttana. a 
coniiadiiidade do Eippa 1i Plus 4 macro 
O cuslo de manuiencao 4 o unjco com um ano 
de garaniia - macro Quahdade com macro paramia 
J& com o preco acootece uma co>sa mieressante, 
deveoa ser macro, mas quando voc4 venlica o custo 
de uma conliguracao v£ que 4 micro 
A asstsiencia c4cnica 4 macro ■ direta do Tspneame 
ou airsv4s de se-us credeociados 
Ele 4 um Aj>pie® compaHvei e dispOe de vaata game 
de eifpansoes e peni^ricos 4 sua disposicfio - 
CONTROLADOR DE DRIVE, CP/M, PALM. BO 
COL. UN AS SOFTSWITCH, 1$K_ S4K. 12BK. GRAPH +, 
SUPER serial CARD. SINTETIZAOOR DE VOZ. 
MONITOR in. eic.. - macro vanlagem. 




Tern hora que precisa ser macro. 




CondusAo: Beja para voce ou para sua empress 
micro ou macro, taga como a Rede GlObo. a Rede 
Bandeirantes Ou a COnlrOl que t&rfi se uEilizado do 
Esopa IS Plus em suas necessidades empress r<a is ou 
como os funcionarios do Bamermdus pars suas 
abvidadas prdtissianais e de ‘azer 
Fa gs como Cantos outros, qua est4o aproveilando as 
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que sade ser macro na 
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a macro esc o I ha. 
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REDES LOCAIS 
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Figura 2 




• Cabo ffsico para conectar as estates a rede local. Os tipos 
comumente usados sSo o par tran^ado, para pequenas distan- 
ces (at d 300 metros) e o cabo coaxial de custo mais elevado, 
usado para grandes distancias. Com transmissao em banda ba- 
se este ultimo atinge 500 metros, enquanto que com a trans- 
missffo em banda larga pode atingir atd 50 quilometros. 

• Servidores, que normalmente gerenciam o compartilhamento 
de arquivos ou impressoras, podem estar residentes em uma 
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Figura 4 

estasSo de trabalho ou em uma unidade dedicada para esse 
fim. 

• Gateways sSo computadores, dedicados ou nSo, que permi- 
tem is estates a possibilidade de comunica^o com outras 
redes e serv^os extemos ao ambito da rede local. 

Topologia e a forma fisica de interconexSo dos elementos 
da rede. Ha tres tipos bdsicos paia as redes locais. 

Na topologia em estrela (Figura 2) todos os n6s (ou esta- 
tes) sao ligados a um no central, atraves do qual os dados 
passam. Neste tipo e comum o n6 central possuir maior capa- 
cidade de processamento, alem de concentrar os perife'ricos 
que s£o compartilhados entre as outras esta9(5es. A rede em 
estrela apresenta sua maior deficiencia na confiabilidade, qual- 
quer falha no no central causa a parada total do sistema, 
alem de ser limitada em termos de expansffo, normalmente a 
oito esta 9 Cfes. Seu desempenho tambem e determinado pela 
capacidade de processamento do no central. 

Uma rede oreanizada em anel e composta de esta95es 
ligadas em serie (Figura 3),formando uma especie de circulo. 
Normalmente, cada esta 9 ffo e ligada a rede atraves de uma 
interface especial, cuja responsabilidade d retransmits os 
dados que nSo se destinam aquela esta93b, ler os dados desti- 
nados ao n6 e inserir dados. Devido ao fato de as redes em anel 



E INCRIVEL O QUE 
UM BOM PROGRAM A 
PODE FAZER. 




O abaco, para quern domina sua tecnica, permite a execu^ao de contas 
aritmeticas com incrivel velocidade. 

Da mesma forma, quern possui um microcomputador e um bom programa 
economiza tempo, papel e aborrecimento. 

A Nasajon Sistemas, tern a sua disposi^ao mais de 50 programas como 

folha de pagamento, crediario, mala direta etc para aproveitar ao ma- 

ximo o que o seu microcomputador pode oferecer. 

Alem disso, a Nasaion Sistemas pode desenvolver programas especificos 
para a sua necessidade, seja ela qual for. 

Todos os nossos programas sao garantidos e atualizados. 

Entre em contato com a Nasajon Sistemas. Estamos sempre dispostos a 
conversar e esclarecer qualquer duvida que voce possa ter sobre infor- 
matica. 

E quando seu microcomputador estiver funcionando com um programa da 
Nasajon, voce vera as coisas incriveis que ele pode fazer. 
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exigirem uma interface ativa para seu funcionamento, a con- 
fiabilidade da rede se reduz i confiabilidade das interfaces. A 
falha de qualquer uma delas seccionard o sistema. Na topolo- 
gia em anel tambem podem surgir problemas relacionados com 
falhas ou erros no processamento de mensagens. Por outro la- 
do, pode crescer ilimitadamente. Contudo e importante lem- 
brar que cada interface introduzida no sistema provocard um 
retardo adicional na rede e a degrada 9 do pode se tomar indese- 
javel, se muitas interfaces estiverem presentes na rede. 

Na topologia em barra comum (BUS) os n6s compartilham 
o meio de transmissao atravds de interfaces passivas, isto e, o 
funcionamento da rede nSo depende do funcionamento das 
interfaces. Uma vez que a barra e compartilhada por todos os 
n6s (Figura 4), o acesso a ela deve ser controlado, de forma 
centralizada ou distribuida. No caso centralizado, a mensa- 
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Figura 5 



gem d transmitida por um determinado n6, que a retrans- 
mite para a esta 9 ffo de destino. No modo de acesso descentra- 
lizado, cada n6 d responsdvel por realizar parte do controle. 
Quanto i confiabilidade, visto que a interface e passiva, a 
topologia em barra comum oferece maior seguran 9 a, pois uma 
eventual falha em uma interface nSo afeta o funcionamento da 



Automagao: um caminho para as redes locais 



O processamento manual de 
rotinas administrates estd 
irremediavelmente condenado 
na exata proporgao em que a 
Informatica vai se tornando 
mais acessf vet A automagao do 
escritdrio, seja simplesmente 
para consultas atrav4s de termi- 
nais nao inteligentes, ou mesmo 
para a execugdo de tarefas mais 
simples, como elaboragao de fo- 
Ihas de pagamento ou controle 
de caixa e estoques por in ter me- 
dio de micros 4 apenas um passo 
para a total informatizagao de 
procedimentos administrates. 

Micros e minicomputadores, 
oferecidos em alguns casos a 
pregos atraentes, tern levado 
empresdrios a tentarem a expe- 
rience de automagao de suas fir- 
mas. A expansdo do numero de 
mdquinas deverd ser mais rdpida 
a partir do instante que a con - 
corrincia aumente, possibilitan- 
do a escolha dos equipamentos 
em maior variedade e pregos 
mais vantajosos. 

Mas o processo de automa- 
gao deve obedecer a etapas, diz 
quern jd viveu a experience e 
que hoje se encontra na fase da 
rede local, como 4 o caso de 
Eraldo de Freitas Montenegro, 
assistente do chefe do Departa - 
mento de Treinamento da Em- 
bratel. Para as pequenas e mi - 
dias empresas a informatizagao 
em e sea la menor 4 mais eficien - 
te, se analisado o mecanismo de 
custo /re tor no. Rede local deve 
ser aspiragdo de quern fez um 
levantamento pormenorizado de 
suas necessidades e at 4 de acesso 
a importantes bases de dados. 

O processo de automagao de 
escritdrios, seja por intermidio 
de terminais de consulta ou pro- 
cessamento atravis de um mi- 
cro, apresenta caracteristicas de 



aspecto psicoldgico junto ao 
quadro de funciondrios. como 
pdde observar Eraldo Montene- 
gro no infeio da implantagdo da 
Informdtica em seu departamen - 
to. Mediante um criterioso tra- 
balho, ele passou a observar o 
comportamento do pessoal da 
segdo % onde seria implantado o 
sistema, para conhecer suas rea- 
goes em fungdo do novo sistema 
operacional. E constatou fatos 
que no minimo, sao curiosos. 

Por exemplo, ha via em parte 
dos funciondrios o temor do de- 
semprego proporcionado pela 
informatizagao. Um receio gera- 
do, como ficou comprocado, 
apenas por questoes como ouvi 
dizer e pela falta de conheci - 
mento pelo menos superficial 
do significado real da automa- 
gao. 

Descobriu-se entdo que essa 
reagao era fruto da visdo primd- 
ria a respeito do processamento 
eletrdnico, de que as mdquinas 
seriam ainda aquelas de grande 
porte, os chamados cerebros ele- 
tronicos, que por sua dimensdo 
transmitiam a falsa imagem do 
complexo, algo que sd pudesse 
ser acessado por iniciados. 

Foi mostrado entdo a eles 
que a microeletronica jd possibi- 
litava a fabricagao de mdquinas 
de pequeno porte, se nao huma- 
nas, pelo menos valorizando 
mais a relagao usudrio jeompu- 
tador. 

A automagao de um escritd- 
rio nao deve ser vista apenas 
como modemidade. Mas signifi- 
cando dinamizagao dos traba - 
Ihos, eliminagao dos feudos e 
ganhos em termos de produtivi- 
dade. Isso sem levar em consi- 
deragao, em tarefas mais roti - 
neiras, aspectos importantes do 
tipo limpeza, corregdo e uni for - 



midade, como na corresponden- 
ce, por exemplo. Esses fat ores, 
no processamento manual, ds 
vezes sao confundidos com ca- 
pacidade profissional, o que nao 
deixa de ser uma avaliagao sub - 
jetiva. 

Tambem foi levado em con- 
sider agao, no exemplo e spec I ft- 
co da Embratel, que a movimen- 
tagdo de pessoal durante f4rias 
ou licenga acarreta sempre pro - 
b l etnas de atraso devido d neces- 
sidade de transference de atri- 
buigoes e aprendizado do servi - 
go, o que fica eliminado no es- 
critdrio automatizado. Em resu- 
mo, o dominio das informagoes 
nao confidenciais 4 retirado das 
maos de uns para ficar d disposi- 
gdo de todos, quando preciso. 

Vale entdo r essa l tar que a 
postura da empresa na hora de 
op tar pela automagao deve ser 
analisada apds a pesagem de 
todos esses aspectos. E a partir 
do porte de cada uma poderd ser 
escolhida a simples implantagdo 
de micro para processamento 
inter no e com terminais para 
consultas, at4 a utilizagao do sis- 
tema rede local, menos simples, 
por4m mais abrangente. 

REDES LOCAIS 

Para uma empresa que jd vive 
a fase do escritdrio automatiza- 
do, atrav4s de elevado numero 
de mdquinas espalhadas por seus 
departamentos, e cujo funcio- 
namento requer constant e inter - 
edmbio de informagoes entre 
um e outro, justificase a im- 
plantagdo da rede local. As roti- 
nas de trabalho, como passagem 
de memorandos de uma sessdo a 
outra, comunicados internos e 
alteragoes de rotinas se desen- 
volvem de forma mais harmo- 



niosa, eliminando-se a utilizagao 
de pap4is, e quando necessario 
seu emprego. isso pode ser feito 
por meio de impressoras. 

As redes locais permit em o 
compartilhamento economico 
de recur sos dispendiosos como 
unidades perif4ricas e comportas 
para bancos e bases de dados 
extemos, dividindo da mesma 
forma informagoes que ficam 
armazenadas apds consultas. 

No caso especffico da Em- 
bratel, a implantagdo da rede 
local foi feita com a utilizagao 
de equipamento adquirido da 
Cetus Informdtica, gerando uma 
rede para operar em seis depar- 
tamentos. Sua configuragao bd- 
sica 4 a seguinte: oito postos de 
servigo, um drive e uma impres- 
sora compartilhada: cada posto 
tern um micro e um nodo CS- 
1000, servindo de interface en-. 
tre a l inha e a mdquina. Dos oito 
postos, um 4 operado por um 
Cobra-305 e os demais por CP- 
500. 

O drive consta de um nodo 
CS-1200 e dois discos Winchester 
de 10 Mb cada, para a memdria 
de massa do sistema. O nodo li- 
ga a uma Elgin MT-140 serial 
funcionando em spool ling. A li - 
nha constitui-se de um par te- 
le fdnico trangado que interliga 
postos e servidor totalizando um 
comprimento de 233 metros. 

A rede local da Embratel ro- 
dou de inicio o Correio Eletrd- 
nico, desenvolvido em BASIC 
pelo seu Departamento de Pro- 
cessamento de Dados, possibili- 
tando a troca de mensagens en- 
tre os usudrios, utilizando um 
arquivo central localizado nos 
discos. Mas vai fornecer condi - 
goes para automagao de proces - 
sos mais complexos ora em de- 
sen vol vim ento. 
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REDES LOCAIS 



rede. Nesta topologia, o crescimento tambem e ilimitado, po- 
dendo suportar ate 255 estates. 



SISTEMAS DE ACESSO 



Para que as estates possam trocar dados entre si e preciso 
um metodo de acesso que controle a disciplina obedecida pelas 
esta96es para acessar o meio de transmissao. Cada metodo estd 
diretamente associado a um determinado tipo de topologia. 
Vejamos os mais conhecidos: 

No metodo denominado Passagem de Permissao existe uma 
mensagem de controle, token ou permissao, que e passada de 
elemento para elemento da rede. Apenas aquele que possui o 
token pode fazer uso da via de interconexSo. Os outros ele- 
mentos permanecem passivos aguardando a sua vez. A exis- 
tence de mensagens para controle de acesso nos levam a con- 
siderar os seguintes aspectos: 

• Overhead da linha, jd que a mensagem de controle n2o 
transporta informa^Oes uteis e de processamento, visto que ca- 
da elemento da rede deve receber, tratrar e passar adiante o 
token. 

• Confiabilidade, pois um erro no meio de transmissffo pode 
tomar a mensagem irreconhecivel, e se nSo houver mecanismos 
que a restaurem, a rede permanecerd inativa ate' que ela se tor- 
ne inteligfvel. 

Este metodo de acesso 6 normalmente utilizado em redes 
com topologia em anel. 

0 metodo conhecido por Escaninhos ou Slots, tambem 
utilizado em sistemas de topologia em anel, se resume em 
dividir o anel em escaninhos, que circulam atrave's da rede. 
Eles sSo de tamanho fixo e possuem um bit que indica se ele 
esta ocupado ou vazio. Para transmits uma mensagem, a inter- 
face aguarda um escaninho vazio, a introduz e seta o bit para 
indicar que ele esta ocupado. Como os escaninhos s£o de ta- 
manho fixo, a interface deve criar pacotes antes de entrar com 
os dados na via de transmiss£o. 0 controle da rede e centrali- 
zado. Existe uma estado responsdvel pela gera^To dos sinais 
necessarios. De um modo geral, os mesmos problemas do me- 
todo de acesso token passing estao aqui presentes. 

No metodo Acesso Mtiltiplo com Detec^So de Portadora — 
CSMA, a estado que deseja transmits verifica antes se existe 
alguma mensagem fluindo pela via de interconexSo. Se houver, 
aguarda at£ que a via fique liberada e entao envia sua mensa- 
gem. Se ocorrer um estado de colisffo, ou seja, duas estates 
enviarem suas mensagens ao mesmo tempo, elas serao super- 
postas e perdidas. 0 fato de cada estado verificar se o meio 
esti livre antes de transmits uma mensagem, jd reduz consi- 
deravelmente a possibilidade de colisffo, jd que o tempo de pro- 
pagagao e bem menor que o de transmissao. Entretanto, o tem- 
po perdido com colisOes pode ser reduzido com a utilizado do 
mecanismo de detec^o de colisSb CD. No me'todo CSMA/CD 
o meio 6 monitorado antes e durante a transmissao de uma 
mensagem. Neste caso, quando ocorrer um estado de colisdo, 
a transmissao e imediatamente interrompida e uma nova ten- 
tativa e realizada apos um certo intervalo de tempo. Este me'- 
todo e normalmente utilizado em redes de topologia tipo 
Barra Comum, e os problemas citados nos metodos anteriores 
sSo aqui praticamente eliminados. 



EM SETE CAMADAS 



Para redes de computadores geograficamente distantes ha 
um modelo de referenda criado pela International Standard 
Organization (ISO), que consiste em dividir um projeto em 
sete camadas, relativamente independentes umas das outras 
(Figura 5 ). 

A denominado do modelo e' Open Systems Interconec- 



tions (OSI) e a descr^ao de cada ni'vel e a seguinte: 

• Fi'sico — responsdvel pela transmissao pura de bits por uma 
linha de transmissao (voltagens, velocidades, tipo de transmis- 
sao etc.). 

• Conexao de dados — responsdvel pelo me'todo de acesso, 
detecdo de erros (protocolo) e controle de fluxo. 

• Rede — responsdvel pelo empacotamento de mensagens, ou 
seja, e transparente ao usuario o tamanho do arquivo a ser en- 
viado. 

• Transpose - responsdvel pela transference de dados entre 
equipamentos e pela multiplexagS'o de canais, tornando pos- 
si'vel que varias converses simultaneas ocorram na rede. 

• Sessao — Oferece ao usuario o acesso a rede, permitindo 
que dois usuarios estabele9am uma conexao. 0 estabelecimen- 
to de uma sessao envolve a troca de parametros. 

• Apresenta9£o — responsdvel pela conversao de codigos, tais 
como de formatos de arquivos, compressao de texto etc. 

• Aplica9ao - sdo os programas aplicativos. 

Para as redes locais nao se formou um padrao devido ds 
particularidades de cada sistema, mas apenas uma recomenda- 
9ao “IEEE- 802 ” que envolve basicamente os niveis 1 e 2 do 
ISO. £ recomendado para meio de comunica9ao o par tran9a- 
do, cabo coaxial ou fibra 6tica. E para me'todo de acesso/to- 
pologia as indica95es sao CSMA/BUS, TOKEN/BUS ou TO- 
KEN/ANEL. 

A sele9ao de uma rede local deve levar em considera9^o 
os aspectos ja citados e tambem os seguintes: 

• Se e uma rede aberta (aceita varios tipos de equipamentos) 
ou fechada (requer equipamentos de um s6 fabricante). 

• Caracteri'sticas do servidor de arquivos (verificar se possui 
facilidades para a cria9^o de subdiretdrios, controle de acesso 
por passwords, lock de registros etc.). 

• Verificar como a rede local se comporta quando um arquivo 
j£ se encontra aberto e outra esta95:o executa o mesmo proce- 
dimento. Avaliar se o comportamento do sistema, neste as- 
pecto, atende as caracteri'sticas particulares de suas aplica9<5es. 

• Servidor de impress^o (verificar se possui facilidades para 
determinar prioridades de impress^To, se ocorrem superposi- 
96es de arquivos etc.). 

• Verificar se o usuario poderd associar um dispositivo fi'si- 
co (qualquer perife'rico ligado ao sistema) de uma determinada 
esta9£o a um dos dispositivos ldgicos de sua esta9ao de traba- 
Iho. 

• Degrada93fo (verificar qual o ni'vel de degrada9ao que ocor- 
re com o incremento de novas esta90es). 

E como conselho final, procure simular todas as situa9oes 
que dever^o ocorrer no momento em que a rede local estiver 
em opera9So, para que voce nS'o conclua no futuro que nSo im- 
plantou uma rede local, e sim uma rede de problemas. 

■ 

m 
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Porque tem um sistema de 
cabegote pr6prio para 
o uso em micros. O gravador 
National RQ-2222 tem um 
contador de fita que facilita 
a localizafSo do programa a 
ser utilizado. E tem tambem 
um comando unico para 
gravaciio tipo “Um Toque”, 
muito mais pratico. Um 
gravador que vive na memo- 
ria do computador merece 
tambem viver na sua. 

Grave este nome: National 
RQ-2222. 



Asegunda 
memoria do seu 

lor: 

National 
RQ-2222 



O gravador 
National RQ-2222 
e o preferido 
pelos usuarios de micro- 
computadores. Ele grava e 
carrega programas com 
a mais alta fidelidade e com 



a maior economia. 






Produzido na Zona Franca de Manaus. Conheoa o Amazonas. 



National 



National 




Nova empresa 
no grupo Prologica 

0 grupo Prol6gica estb formando uma nova empresa, a CP — Compu- 
tadores Pessoais LTD A, responsbvel pel a fabricagbo e comercializagbo 
dos computadores pessoais do grupo. 

A CP mantel basicamente a infra-estrutura da divisbo que existe 
atualmente, albm da ampliagao dos departamentos e de maior autonomia e 
flexibilidade no atendimento a clientes e fornecedores. A totalidade do 
capital no atendimento a clientes e fornecedores. A totalidade do capi- 
tal acionbrio da nova empresa pertencerb aos atuais acionistas do grupo 
Prolbgica. 

A sede da CP - Computadores Pessoais LTDA ficarb na Rua Ptolo- 
meu, 650 - Vila Socorro, SSo Paulo, CEP: 04762, tel.: (01 1) 247-6934. 




Cartoes Microcraft 



Bolsas de estudo para 
curso de jogos 

A Ciberne Software estb oferecendo bolsas de estudo, em regime in- 
tegral, para programadores interessados no 19 Curso de Projeto e De- 
senvolvimento de Jogos para Microcomputadores. Os dez bolsistas, que 
deverao ter mais de 16 anos e serem programadores de equipamentos 
com processador Z-80, serSo selecionados, por entrevista, entre o total 
de inscritos. O curso, que terb a duragao de 50 horas, serb ministrado 
por Renato Degiovani. 

Para maiores informagdes sobre o curso e o procedimento de inscri- 
gao, a Ciberne deixa b disposigao dos interessados o seu telefone: (021) 
262-6968. 



A Microcraft comegou o ano 
com trbs novos langamentos para 
seu microcomputador Craft II 
Plus. Sao eles: Cartbo Pal/M, Car- 
tbo controlador de disquetes de 
8" e um drive para discos de 8". 
Com a nova placa Pal/M o Craft II 
Plus pode trabalhar com monitor 
de vfdeo ou televisor comum 
colorido. A placa nao vem incor- 
porada no modelo bbsico do mi- 
cro, sendo vendida como expan- 
sao e seu prego b de 375 mil. Com 
o cartbo controlador de discos, o 



micro passa a aceitar disquetes de 
8", dupla face e dupla densidade, 
atb um total de 4 Mb. Cada placa 
aceita dois drives de 1 Mb cada e 
custa Cr$ 1.390 mil. E o novo 
drive para disquetes de 8", dupla 
face e dupla densidade, com fon- 
te, cabo de ligagSo e o prbprio ga- 
binete tambbm jb estb sendo co- 
mercializado e seu prego b de 
Cr$ 8.765 mil. A Microcraft estb 
produzindo atualmente cerca de 
200 unidades do Craft II Plus por 
mbs. 



Novos jogos 
Ciberne 




Valkirie, Mercador dos Sete Mares e Defensor 3D sao tris, das quatro novas fitas da Ciberne. 



A JVA Microcomputadores langou mais 
quatro fitas de jogos sob a sigla Ciberne Soft- 
ware. As fitas sao dedicadas a equipamentos 
com Ibgica Sinclair e, cada uma, contbm tres 
jogos que mesclam agao e emogbo, criando 
uma atmosfera de sonho, onde o usubrio se 
transfigura sucessivamente em piloto espacial, 
mercador, robo e atb num cidadSo comum b 
mercb de assaltantes. 

Nesse novo grupo, ao contrbrio do langado 
no ano passado, a JVA procurou misturar di- 
versos generos de jogos, em cada fita. A inten- 
gao foi clara: agradar a todos os tipos de pu- 
blico. 

A maioria dos jogos sbo tradugdes e ver- 
sdes de jogos americanos, mas a JVA teve a 
preocupagbb de manter em cada fita, pelo 
menos um jogo de autor nacional. Segundo 
Josb Eduardo Neves, diretor da empresa, essa 
iniciativa deverb se tornar uma prdtica da 
marca Ciberne. 

"Estamos fazendo uma selegdb de jogos de 
nossos autores, com o objetivo de incentivd- 
los a produzir jogos nacionais. Nao nos inte- 
ressa apenas tradugoes e versdes, mas sim ma- 
terial original. Estamos atd promovendo um 
curso de Programagao de Jogos para incenti- 
var o pessoal". 

Segundo Josb Eduardo b possfvel vislum- 
brar um maior interesse nessa produgao e coi- 
sas de qualidade jd estao comegando a surgir 
no mercado. Na sua experibncia de selecionar 
esse produto jd deu para perceber que a quali- 
dade dos jogos vem crescendo muito. "Tive- 
mos atd, hd algum tempo atrds, o cumulo de 
receber um jogo de autor nacional, totalmente 
traduzido para o ingles. Segundo o autor isso 
dava status ao produto!". 

Os novos jogos da JVA custam, em mddia, 
2.036 ORTN e, numa primeira fita, um jogo 



nacional de Divino C. R. Leitdo dd nome ao 
produto. Valkirie d um jogo de estratdgia, do 
tipo invaders, onde o comandante de uma 
nave espacial tenta, em pleno planeta Vbnus, 
combater estranhas criaturas aladas. Acompa- 
nham esse jogo, na mesma fita, o Guerrilha 
Cbsmica e o ZOR. No primeiro, seres maquia- 
vdlicos retiram tijolinhose vao sendo abatidos, 
um a um, por um canhao de fbtons. E um 
jogo atraente, do tipo invaders, com opgao 
para alta resolugd'o grdfica. Jd o ZOR d um jo- 
go de agao, que reune tdtica e um pouco de 
sorte. Nele, dois robbs se defrontam no solo 
de um planeta deserto. Sem estabelecer conta- 
to visual, eles se enfrentam com armas e defe- 
sas iguais. 

Uma segunda fita traz o Mercador dos Sete 
Mares como jogo principal. Este tambdm d um 
jogo de estratdgia, mas nao militar, e sim do 
tipo banco imobili&rio. No sdculo XIX, o joga- 
dor percorre o mundo a bordo de um navio, 
em busca de btimos negbcios. O seguinte d 
Corrida Maluca, um jogo de agdTo, tipo PAC- 
MAN. Sao dois carros que percorrem um cir- 
cuito: um tentando apanhar todas as pedri- 
nhas do caminho; o outro, no encalgo do pri- 



meiro. O ultimo da fita d o Pinball, de Divino 
C.R. Leitao, um jogo que Simula na tela uma 
mdquina real de fliperama. 

Na ffta denominada Subespago estb esse 
jogo, como abertura, simulando uma verdadei- 
ra cagada espacial. O jogo d totalmente grbfico 
e nele o jogador tern que cagar os inimigos 
que tentam destruir a sua espagonave. Caver- 
nas de Marte, de Divino C. R. Leitao, estb a 
seguir, como um jogo de agbo, com um bonito 
display e cavernas cheias de perigos a serem en- 
frentados. Por ultimo, nessa fita, estb o Com- 
boio Espacial, tambdm um jogo de agbo, onde 
uma nave d designada para defender um inde- 
feso cargueiro. 

Defensor 3D d a ultima fita, com naves 
espaciais que cruzam o espago em alta veloci- 
dade, na mira teles cbpica de um canhao laser. 
O prbximo d Q'BERT, de Divino C. R. LeitSo, 
um jogo que cria um neologismo e utiliza for- 
mas geomdtricas, empllhadas umas sobre as 
outras, para formar uma piramide em perspec- 
tiva. O ultimo d Assalto, um jogo do tipo 
PAC-MAN, onde ladroes tentam assaltar um 
depositante que precisa chegar a salvo no 
banco. 



Monitores Videocompo 



A Compo estb langando quatro novos mo- 
nitores de vfdeo profissionais: trds monocro- 
mdticos, que podem ser ligados a computado- 
res que tenham safda de vfdeo composto; e 
um colorido, que traz como novidade uma 
placa que permite acoplar uma Apple num 
monitor de vfdeo de boa qualidade (a placa 
convene o sinal do micro em RGB). 

O modelo CPC 14 cromdtico estb sendo 
langado em 2 versoes: mddia resolugbo grbfica 
— 380 x 240 pontos; e alta resolugao - 560 x 
240. As duas versdes sao compatfveis com as 
linhas Apple, IBM e Itautec. 

O MPC Vfdeo Monocrombtico d apresentado 
em 12 e 14 polegadas, sendo que o de 14 d o 
primeiro deste tamanho a ser langado noBrasil. 
As duas opgoes trazem como novidade a com- 
patibilidade com a placa monochrome IBM, e 
sao compatfveis com as linhas Apple e Itautec. 
Possuem foco dinbmico, 160 colunasde texto 
e resolugao grbfica de 720 x 240 pontos. 

Outro modelo novo, o MV, d apresentado 
nas versdes 1 e 2, am bos monocromdticos. As 
duas versdes apresentam 160 colunas de tex- 
to, alta resolugao grbfica — 560 x 240 e tela 
anti-ofuscante opcional. O que as diferencia d 
que o MV 1 d compatfvel com a linha Apple e 
o MV 2 com as linhas IBM e Itautec. 



Placa CP/M500, 
da Microsol 



A placa CP/M500, da Microsol, - que 
possibilita ao CP-500 processar programas 
no sistema operacional CP/M — estb 
custando menos. A unidade, que custava 
cerca de 42 ORTN, estb agora em torno 
de 34. Segundo a empresa, isso se deve ao 
aumento na venda das placas, o que incre- 
mentou a produgao e, consequentemente,* 
barateou o custo da unidade. 

A Microsol fica na Av. Pontes Vieira, 
1867 — CEP: 60.000, Fortaleza - Ceard. 




Monitor MPC 12. 



O modelo ME Vfdeo Monocrombtico d 
apresentado em trds opgdes:cinco polegadas e 
resolugbo grbfica de 480 x 240; nove polega- 
das e resolugao de 560 x 240, e doze polega- 
das com reslugab de 720 x 240 pontos. As 
trds versdes sao compatfveis com as linhas 
Apple, IBM e Itautec. 

A Compo oferece seus terminals direta- 
mente ao publico e atravds de revendedores. 
Informagdes pelo tel.: (011) 548-6844, Sbo 
Paulo, 



Relagao de Software 
para TK 



A Microdigital estb oferecendo uma rela- 
gao descritiva complete de programas com a 
marca Microsoft , jb desenvolvidos para a li- 
nha TK (utilitbrios, aplicativos profissionais e 
jogos animados), para que o usubrio possa 
atualizar-se quanto aos programas disponfveis 
no mercado. 

Os interessados devem e sc r ever para: Mi- 
crodigital Eletrdnica Ltda. — Servigo de Su- 
porte ao Usubrio — Caixa Postal 54088, CEP 
01296, Sbo Paulo, SP. 



CCE 

a Todo Vapor 

A CCE entrou o ano de 85 a caminho 
da concretizagbo daquilo que a empresa 
havia adiantado no final do ano passado: 
o langamento de trds novos micros. Em 
fevereiro, a CCE colocou no mercado o 
primeiro irmbo do Exato, o MC 1000, 
que veio para concorrer diretamente com 
os micros pessoais de baixo prego dispo- 
nfveis no mercado. O novo equipamento 
foi langado com suporte de 50 jogos e jb 
estao sendo colocados no mercado mais 
100 programas aplicativos desenvolvidos 
por software houses credenciadas pela 
CCE. Tambdm jb estbo disponfveis a 
expansao de memdria de 64 Kbytes, a 
placa para o MC 1000 rodar programas 
em CP/M e a interface para utilizagao de 
disquetes de 5 1/4", com 170 Kb cada 
um, face simples e dupla densidade. Para 
o Exato a CCE colocou no mercado, nos 
primeiros meses do ano, um monitor de 
vfdeo de 12", fdsforo verde ou dmbar 
(opcional), e as placas CP/M e 80 colunas. 

Mas as grandes novidades anunciadas 
pela empresa ainda estbo por vir. Para o 
segundo semestre estb previsto o langa- 
mento do terceiro membro da famflia de 
micros CCE, o MC-1500, uma versdo 
ampliada do MC 1000 com gabinete 
maior e teclado profissional. As interfa- 
ces langadas para o MC 1000 deverdo jb 
vir embutidas nesse novo equipamento. 
Para a Feira de Informbtica desse ano a 
CCE promote o langamento de um micro 
de 16 bits compatfvel com o modelo XT 
da IBM. E na linha de 8 bits a CCE deve- 
rb apresentar tambdm um novo equipa- 
mento baseado no microprocessador Z-80 
e na tecnologia MSX, desenvolvida por 
um pool de grandes empresas japonesas. 
O MC 2000 terb memdria ROM de 32 
Kbytes com uma sdrie de rotinas que 
facilitarao o trabalho do usubrio. 




STRINGS 




• A PTI — Publicagfies Tbcnicas Internacionais estb promovendo no 
Brasil o Computer Book Review, periddico americano especializado na 
anblise e crftica de novas publicagdes na brea de processamento de da- 
dos. Informagdes pelo tel.: (011) 258-8442 e 257-1640. • A BART0 
Computadores Ltda., especialista na brea de Commodore, estb confec- 
cionando um circuito de protegbb contra picos de voltagem que evita 
queima de equipamentos. Outra novidade da Bartd 6 a interface RS232 
para acoplamento dos computadores da linha Commodore ao projeto 
Cirandao e outros CBBS. Informagdes pelo tel.: (021) 262-1213, Rio de 
Janeiro. • A Eastman Kodak Company anunciou pianos para atuar no 
mercado de telecomunicagdes, criando uma nova divisao, a Eastman 
Comunications, para comercializar servigos de telecomunicagdes. Os ser- 
vigos iniciais incluirao transmissao de dados e telefonemas a longa dis- 
tbncia e, ainda, servigos em "network". • A PROLOGICA ganhou uma 
concorrbncia para fornecimento de microcomputadores ao Ministbrio 
do Exbrcito. Para a fase inicial do projeto o Ministbrio do Exbrcito jb re- 
cebeu da Proldgica 61 Super Sistemas 700 e 74 impressoras P-720. • A 
COMPUSHOP estb aceitando micros usados como parte de pagamento 
na aquisigbo de um novo sistema. Os equipamentos serbo avaliados de 
acordo com o estado de conservagbo e marca por profissionais especiali- 
zados da empresa. Outra novidade b a comercializagao de equipamentos 
usados, com garantia de trbs meses. • A 3i INFORMATICA jb tern vb- 
rios seminbrios programados para este ano, entre eles: "Redes Locais ou 



PBX", "Planejamento Estratbgico em Automagbo de Escritdrios" e o 
"Caminho da Implantagbo em Automagbo de Escritdrios". Informa- 
gdes pelo tel.: (01 1 ) 521-9509, Sbo Paulo. • A Texas Instruments estb 
langando uma calculadora de mesa que dispensa o uso de baterias. A 
calculadora - T 1-5022 — possui cblulas de captagbo de energia natural 
ou artificial, ficando, assim, constantemente ligada. • A IBM estb encer- 
rando a medida cautelar de vistoria, que havia apresentado contra a Sof- 
tec, na Justiga de Sbo Paulo. Isso porque a empresa se comprometeu a 
nbo incluir na memdria dos equipamentos que fabricar e vender o bios 
da IBM ou qualquer outro programa a ele semelhante. • A Hewlett — 
Packard Co. pagou cerca de 65 milhdes de ddlares em participagbo nos 
lucros a mais de 73 mil funcionbrios, em 32 pafses. Destes, aproximada- 
mente 240 trabalham na Hewlett - Packard do Brasil Industrie e Co- 
mbrcio, com fbbrica em Campinas, Sao Paulo. • A Proceda, empresa de 
processamento de dados associada ao Grupo Santista, assinou contrato 
com a Dataldgica para distribuigao, a nfvel nacional, dos programas co- 
mercializados por esta empresa (dBase II e Framework). • Um mini- 
computador COBRA 530 e um micro COBRA 210 estiveram presentes 
na sala de desenho industrial da exposigao "Tradigbo e Ruptura", que 
se realizou no Pavilhao da Bienal (Parque do Ibirapuera, SP). • A Nova- 
data informa que estb desenvolvendo o projeto de seu super-mi nicompu- 
tador, o ND286, que serb compatfvel com o produto atual da empresa, 
o Mini ND86. 
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Com a importancia que vem assumindo a comunicagao 
entre maquinas o modem ganha papel de destaque como 
pega fundamental nessa engrenagem 



Modems, 

um periferico em voga 



E stabelecer rela^ffo, ligar, unir, 
transmitir. Estes sSo alguns dos 
sinonimos encontrados em di- 
cionarios para o verbo comu- 
nicar, tSo em voga em nossos dias. Na 
4rea de Informatica, o verbo comuni- 
car vem sendo cada vez mais conjugado 
e mostras disso tivemos na ultima Fei- 
ra Internacional de Informdtica, realiza- 
da em novembro, no Rio de Janeiro, on- 
de um dos pontos altos foi o software 
de cornu nica 9 £o. 

0 uso do micro como um equipa- 
mento isolado esbarra no limite da in- 
tera^S’o exclusiva entre a mdquina e seu 
usu£rio. Atualmente porem, e' cada vez 
maior o numero de usudrios de micro- 
computadores que buscam uma amplia- 
936 dessa rela 9 ffo com a mdquina, atra- 
ves de liga936 em rede e da utiliza 9 ffo de 
serv^os de bases de dados. 

Para que esta liga 93 o se efetue, sSo 
necessdrios tres elementos tasicos: 
RS232-C, um software de comunica 9 ao 
e o modem. 

A maioria dos microcomputadores 
possui saida para liga 9 S 6 de interface 
RS232-C que e um tipo de conex56- 
padr36 para a liga936 entre os micros 
e seus perife'ricos (inclusive modems, pa- 
ra acoplamento i rede telefonica) entre 
dois ou mais micros e entre um terminal 
e um computador de grande porte. Esse 
padrffo define como DTE - Data Termi- 
nal Equipment, ou Equipamento Termi- 
nal de Dados, o equipamento que gera e 
processa a informa936 ; e Data Commu- 
nication Equipment, ou Equipamento 
de Comunica 9 So de Dados, aquele que e 
empregado como transmissor e receptor 
de dados, no caso o modem. 

O segundo componente presente nas 



liga 96 es entre equipamentos e o software 
de comunica 9 ^o. Este software geral- 
mente 6 comercializado sob a forma de 
pacotes de comunica 9 ffo voltados para 
cada tipo de liga936 que se queira efe- 
tuar. Existem os pacotes para comunica- 
936 entre micros e mainframes, por 
exemplo, atrave's dos quais o micro pas- 
sa a atuar como terminal da maquina de 
grande porte; e os pacotes para acesso 3s 
centrais de bancos de dados dos serv^os 
comerciais. 

Alguns fabricantes de microcomputa- 
dores est36 implementando seus equipa- 
mentos, dotando-os intemamente da in- 
terface RS 232-C, do software para aces- 
so a determinados serv^os e de mo- 
dems internos, dispostos em uma placa. 
Entre estes est56 a Itautec, que ]i dis- 
p 6 e dessa implementa 9 So para os mi- 
cros da famflia 1-7000, para acesso ao 
Videotexto, e em breve ter i disponivel 
tamtam para o 1-7000 PC XT, o micro 
de 16 bits da empresa; a Spectrum, cu- 
jos novos Microengenhos tamtam \i po- 
dem acessar diretamente o banco de 
dados central da Telesp; e o projeto Ci- 
rand36, da Embratel. 

0 terceiro elemento e o modem, cuja 
descri^o e considera 9 Cfes te'cnicas se en- 
contram no artigo A viagem dos dados, 
pig- 10 . 

O MERCADO DE MODEMS NO 
BRASIL 

A grande maioria dos fabricantes de 
modems estd otimista com a visivel ex- 
pansao desse mercado e com as perspec- 
tivas para este ano que sao de um cres- 
cente aumento no volume de vendas. 



“Vivemos no rastro da industria de In- 
formatica, j i que a industria de modems 
6 o elo de liga 9 fo entre duas dreas: a 
Informatica e as Telecomunica 9 oes, pos- 
sibilitando que estas interajam”, afirma 
Henrique M. Tanabe, supervisor de ven- 
das da Moddata/Coencisa. 

A Coencisa e o fabricante que possui 
a maior variedade de modems no mer- 
cado, hoje com 14 modelos diferentes. 
Criada em 1975, a empresa foi tamtam 
o primeiro fabricante de modems no 
Brasil e em 1983 teve seu controle acio- 
ndrio comprado pela Moddata, que na 
epoca tamtam j i se dedicava i fabrica- 
936 desses equipamentos. 

No primeiro ano de atua956 conjun- 
ta Moddata/Coencisa, foram vendidos 
35% a mais em quantidade e 40% a mais 
em volume do que no ano anterior, j i 
descontada a infla^o. Em 1984 a em- 
presa vendeu, somente em Sao Paulo, 
cinco mil modems com um faturamento 
de Cr$ 35 bilh<5es em todo o Pais, e 
para este ano as previsOes s36 de no mi- 
nimo dobrar as vendas. Segundo Henri- 
que Tanabe, estas provisoes se concen- 
tram principalmente na 3rea de modems 
para micros, ja que segundo ele os equi- 
pamentos de alta velocidade man tern 
um crescimento constante. 

A Moddata/Coencisa fechou o ano 
com a assinatura de um contrato com a 
Embratel da ordem de Cr$ 20 bilhOes 
para o fornecimento de modems. Du- 
rante o ano de 1984, a empresa investiu 
cerca de Cr$ 2 bilhOes em pesquisa e de- 
senvolvimento e hoje os modems da 
Moddata/Coencisa possuem um m dice 
de nacionaliza936 de 95%, sendo que 
muitos j i atingiram 100 %. 
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A Elebra, conhecido fabricante da 
3rea de Informatica, possui sete modelos 
de modems disponiveis no mercado. Em 
1984, o Departamento de TransmissSo 
de Dados passou por uma reestrutura 9 ^o 
na qual foi dada enfase ao segmento de 
modems com a cria 9 So de servi 90 s para 
maior suporte t^cnico. Antigamente, es- 
te segmento da empresa era voltado 
principalmente para grandes usuarios e 
grandes vendas e hoje volta-se tamtam 
aos pequenos usuarios. Segundo o su- 
pervisor de planejamento de produto, 
Alexandre Reznik, o mercado de mo- 
dems est i em franco desenvolvimento, 
incentivado por clubes de usuarios e ser- 
ves como o Cirandao e Videotexto. 
“O mercado 6 promissor e os resultados 
tern sido excelentes”, diz ele, “o tele- 
processamento vai crescer com a indus- 
tria e comercio comprando cada vez 
mais modems impulsionados pelo domi- 
nio da mdquina por parte do usudrio”. 

0 modem de maior venda entre os 
modelos da Elebra 6 o Banda-Base, um 
modem digital para iiga 9 < 5 es urbanas que 
est i sendo muito utUizado por bancos 
para liga 90 es de terminals entre as agen- 
das. A nacionaliza 9 §o dos modems da 
Elebra varia entre 85 e 100%, este ulti- 
mo indice alcan 9 ado nos modelos de 
baixa velocidade, j i que para os de alta 
veloddade ainda s3o importados deter- 
minados componentes. Durante o ano 
de 1984 a Elebra registrou um cresci- 
mento da ordem de 25 a 30% na area de 
modems e para esse ano estd previsto 
um crescimento tamtam nesta faixa. 

No entanto, na maioria dos casos de 
liga 9 So de micros entre si ou de micros 
a equipamentos de grande porte os mo- 
dems utilizados s 2 o do tipo analdgico e 
assmcrono. Entre os modems anal 6 gi- 
cos assincronos, os de 300 bps s3o con- 
siderados ideais para liga 96 es com mi- 
crocomputadores pessoais principalmen- 
te pelo pre 90 reduzido e pela facilidade 
de instala 9 ^o. 

Mais especificamente, os modems de 
acesso a bancos de dados ainda podem 
possuir um dispositivo de resposta auto- 
mdtica (DRA) que atende as chamadas 
atraves de um ruido, informando ao 
usudrio que a liga 9 <fo foi completada. 
Alguns modelos trazem um outro dispo- 



sitivo de auto discagem. 0 usuario pro- 
grama seu micro com o numero que de- 
seja discar e ele o faz automaticamente 
atraves do modem. 

A opiniffo de que os serv^os de ban- 
cos de dados como Cirandao e Video- 
texto entre outros vem impulsionando 
significativamente o mercado de mo- 
dems 6 ressaltado por Adailton Souza 
de Oliveira, Assistente de Marketing da 
CMA Industria Eletronica. A empresa 
surgiu da CMA Sistemas, que para trans- 
miss 5 o de dados dos Estados Unidos pa- 
ra ca come 90 u a fabricar os equipamen- 
tos que necessitava, passando a comer- 
cializd-los um ano depois. Hoje, a CMA 
dispGe de cinco modelos de modems, 
com um indice medio de nacionaliza- 
956 de 90.8%, sendo o A 217 CT o mais 
procurado para utiliza 9 <Io em acesso ao 
Cirandao e Videotexto. A empresa fa- 
bricava um acoplador acustico, hoje 
fora de linha por falta de mercado. 

Outro fabricante pioneiro na area de 
modems e a Parks, que ha 18 anos co- 
me 90 U fabricando alarmes residenciais 
e comerciais e entre 1975 e 76 entrou 
na drea de Informdtica passando a fa- 
bricar modems. Segundo Jaiter Pereira 
de Pddua, da drea comercial, a Parks 6 
uma das tres maiores empresas desse 
segmento juntamente com a Moddata/ 
Coencisa e a Elebra. Ele afirma que 
1984 foi um ano muito bom para a 
Parks, que mesmo com a crise registrou 
um crescimento real entre janeiro e 
junho, quando encerra o ano fiscal, de 
79%, e um faturamento de Cr$ 3 bi- 
lhcSes. Para 85 a meta da empresa 6 
atingir um crescimento da ordem de 
150%. 

De julho de 1983 a junho de 84 a 
Parks fabricou 5.300 modems e para o 
proximo exercicio espera, no mmimo, 
dobrar essa produ 9 Sb. Foram investidos 
Cr$ 600 milhOes em pesquisa e desen- 
volvimento e o fndice de nacionaliza- 
95:0 dos produtos da Parks atinge hoje 
98%, com a importa 93 'o apenas dos cir- 
cuitos que nfo sdo fabricados no Brasil. 



Tex to final: Stela Lachtermacher 



Tabela de modems 

A seguir, publicamos uma tabela com os modems que estdo no mercado e que sao utili- 
zados em microcomputadores. Estes sao os endere$os das empresas que fazem parte 
desta tabela: Moddata/Coencisa - R. Dr. Sodri , 72, SP, tel.: (011) 543-2711; Elebra Ele- 
trdnica - Av. Eng9 Lutz Carlos Berrini, 1461, SP, tel.: (Oil) 533-9977; Parks Equipamen- 
tos Eletronicos Ltda. - Av. Parand, 2335, PA, tel.. (0512) 42-5500; Digitel Equipamentos 
Eletronicos Ltda. - R. Joao Abott, 503, PA, tel.: (0512) 32-5999; CMA Industria Eletro- 
nica - A v. Giovanni Gronchi, 6065, SP, tel.: (011) 548-2249 ; ABC Dados Sistemas S/A - 
Estrada do Tindiba, 1608, RJ, tel.: (021) 392-8585; CMW Sistemas Ltda. — R. Jose Oli- 
veira Coutinho, 70, SP, tel.: (Oil) 826-6444; Splice Industria e Comercio - Av. Juscelino 
K. de Oliveira, 154, Votorantin, SP, tel.: (0152) 43-1316; Milmar Industria e Comercio 
Ltda. - Av. Dr. Cardoso de Mello, 1336, SP, tel.: (Oil) 531-3433; EES - RuaNapoledo 
de Banos, 593. SP, tel.: (011) 571-0782. 
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MODEMS, UM PERlFgRICO EM VOGA 



MODEMS DfSPONiVEIS NO MERCADO 



FABRICANTE 


MODELO 


TIPO 


VELOCIDADE (bps) 


MO DO DE 

transmissAo 


PREQOS 


SERVIQOS/ 

observacGes 


MODDATA 

/COENCISA 


BBC III 


sinc./digt. 


9600, 4800, 2400 ou 1200 


s. d. a 2 ou 4 fios e d. a 4 fios 


105 


— 


96 BA 


assinc. /digt. 


ate 9600 


s. d. a 2 ou 4 fios e d. a 4 fios 


44 


- 


24 TTL-C 


sine. /analg. 


2400 ou 1 200 


s. d. a 2 ou 4 fios e d. a 4 fios 


170 




MC-16 


assinc. /analg. 


at6 1600 


d. a 4 fios ou s. d. a 2 fios 


65 


Ciranda 


MC-22 


sine, ou assinc./ 
analg. 


sine, em 600 ou 1200; 
assinc. em at6 300, 600 ou 
1200 


d. a 2 fios 


148 


resp. aut. 


MC-23 


assinc. /analg. 


600. 1 200 ou 1200/75 


d. a 4 fios ou s. d. a 2 fios 


120 


Vdt., Cirandao/resp. 
aut. opc. 


MPC-1 2 


assinc. /analg. 


at6 1 200 


s. d. a 2 fios 


37 


Ciranda 


MC-13 


assinc. /analg. 


1 200 ou 1200/75 


s. d. a 2 fios 


25 


Videotexto. Cirandao 


MC-31 


assinc. /analg 


300,600, 1200 ou 1200/75 


d. ou s. d. a 2 fios 


39 


Ciranda, Cirandao, 
Videotexto/* 1 


300 TTL 


assinc. /analg. 


at6 300 


d. ou s. d. a 2 fios 


71 


Cirand$o/resp. aut. opc. 


M PC-03 




at6 300 




37 




ELEBRA 


DS-2401 


sine. /analg 


2400 


s. d. a 2 ou 4 fios e d. a 4 fios 


163 


resp. aut. opc. 


DA-1201 


assinc./analg. 


at* 1200 


d. a 4 fios ou s. d. a 2ou 4 fios 


86 


resp. aut. opc. 


DA-1031 


assinc. /analg. 


at* 300 


d. ou s. d. a 2 ou 4 fios 


93 


resp. aut. opc. 


PARKS 


UP-9600 


sinc./digt. 


9600 


d. a 4 fios ou s. d. a 2 fios 


60 




UP- 241 0/S 


sine. /analg. 


1200 ou 2400 


d. a 4 fios ou s. d. a 2 fios 


110 


s*rie com opc. 


UP-1210/11 


assinc./analg. 


at* 1200 


d. a 4 fios ou s. d. a 2 fios 


60 


s*rie com opc. 


UP- 1200 VTX 


assinc./analg. 


1200/75 


d. a 4 fios ou s. d. a 2 fios 


25 


Videotexto 


UP-1275 VTX 


assinc./analg. 


1 200 ou 1200/75 


d. a 4 fios. s. d. a 2 fios 


35 


Cirandao, Videotexto, 
Renpac 


UP-310/11 


assinc./analg. 


at* 300 


d. a 4 fios ou a 2 fios 


55 


Cirandao/s*rie com opc. 


UP-9.600 


assinc. /digt. 


at* 9600 


d. a 4 fios ou s. d. a 2 fios 


- 


em lancamento 


UP- 1200 


assinc./analg. 


at* 1200 


d. a 2 fios 


- 


em lancamento 


DIGITEL 


AD 9.600 BC 


assinc. /digt. 


at* 9600 


d. a 4 fios ou s. d. a 2 fios 






AD 9.600 B 


assinc./digt. 


at* 9600 


d. a 4 fios ou s. d. a 2 fios 


- 


- 


SD 9.600 BC 


sinc./digt. 


1 200, 2400. 4800, ou 9600 


d. a 4 ou s. d. a 2 fios 


- 


com equalizador aut. 


SA 2400 B 


sinc./analq 


2400 


d. a 4 fios ou s. d. a 2 fios 


- 


- 


A A 1200 


assinc./analg. 


600. 1200 ou 1600 


d. a 4 fios ou s. d. a 2 fios 


- 


- 


AA 1200 B 


assinc./analg. 


at* 1 200 


d. a 4 fios ou s. d. a 2 fios 


- 


— 


AA 2203 


assinc./analg. 


at* 1 200 


d. a 2 fios 


- 


com teste remoto 


AA 1275 BC 


assinc./analg. 


1 200 ou 1200/75 


d. a 2 ou 4 fios ou s. d. a 2 fios 


38 


Videotexto 




assinc./analq. 




d. a 2 fios ^ 




resD. aut. odc. 


CMA 


A 217 CT 


assinc./analg. 


1200/75 


d. a 2 fios 


22 


Videotex to/pi no DIN 


A 21 7 C 


assinc./analg. 


1200/75 


d. a 2 fios 


28 


Videotexto, CirandSo 


A 271 C 


assinc./analg. 


75/1200 


d. a 2 fios 


30 


- 


A 21 2 C 


assinc./analg. 


75/1200 


d. a 2 fios 


36 


Videotexto, Cirandao 


A 230 C 


assinc./analg. 


at* 300 


d. a 2 fios 


48 




ABC 

DADOS 


ABC-24 


sinc./analg. 


2400 ou 1 200 


d. a 4 fios ou s. d. a 2 ou 4 fios 


1 10 


Trans. Renpac/resp. aut. 


ABC 3/12 


assinc./analg. 


300,600. 1 200 ou 1200/75 


d. a 4 fios e s. d. a 2 ou 4 fios 


80 


Ciranda, Cirandao, 
Vdt. /resp. aut. 


CMW 


MDA-1200P 


assinc./analg. 


at* 1 200 


d. a 4 fios ou s. d. a 2 ou 4 fios 




- 


SPLICE 


M A- 1200 


assinc./analg. 


1200 ou 120W75 


d. a 2 fios e s. d. a 2 fios 




Videotexto, CirandSo 


MILMAR 


Modelo 1 


assinc./digt. 


2400, 1200 ou 1200/75 


d. ou s. d. a 2 fios 


- 


Videotexto/resp. e 
disc. aut. 


Modelo 2 


sinc./digt. 


2400, 1200 ou 1200/75 


d. ou s. d. a 2 fios 


- 


Videotexto/resp. e 
disc. aut. 


Modelo 3 


assinc./digt. 


2400 ou 1200 


d. ou s. d. a 2 fios 


- 


resp. e disc. aut. 


Modelo 4 


sinc./digt. 


2400 ou 1200 


d. ou s. d. a 2 fios 


- 


resp. e disc. aUt. 


EES 


EES-07 


assinc./analg. 


ate 300 


s. d. a 2 fios 


9 


*2 


ABREVIATU 
analg. — anal< 
plex sine. — s 
•1 Estu mode 
•2 EsTe mode 


RASUTILIZAC 
agico assinc. — a 
mcrono Trans. - 
lo. al*m do CCI1 
m e o primeiro n 


IAS 

issfrtcrono aut. — j 
Transdata Vdt. — 
rT, * baseado no pi 
riodelo nacional esi 


iutom*tica d. — duplex digt. - 
Videotexto 
adrao Bel. 

aeci'fico para a linha Sinclair. 


digital disc, -discagem opc. - opr 


cional resp. - 


- resposta s.d. — semi du 
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unitron 



a base chz um sistemci 










Cucm to metis 

c ompiexo ior um sistema. 
mais solida e conUavel 
deve set sue base 
Quando voce tem urn 
micro da Unitron c omo 
principio inteligente. voce 
tambem tem aceriezade 
que o atendimento de 
suers necessidades em 
processam en to de dados 
egurado . B a 
patavra de quern 
trabalha continuamente 
para olerecer uma 
tecnologia sempre atuai 
ao usudrio. E o que os tatos demons! ram. 
Nasua calegona, o Unitron andousempre na 
[rente Alem de contarcom uma intinidade de 
programas. testados e aprovados. e os mais 



diversiiicados acessorios 
de expansao - entre 
mddulos. interfaces e 
periiericos - o Unitron 

agora podeser 

conectado. via teSeione. a 
todas as redes existentes 
Amanda, Cirandao . 
Interdaia , Cyber. 

Videotexto. CMA etc. Ou, 
entao, ds redes 
particulares. acessando 

outros micros ou 

comunicando-se com 
computadores de grande 
porte. na tungdo de 

terrmna) inteligente. Portanto, se vacd deseja um 
processam en to de dados com quaitdade , lale 
com nesses revendedores autorizados. Para cada 
caso, uma solucao inteligente. Do principio ao tim. 





unitron 
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Maisdo que um incrivel jogo em Assembler e BASIC para seu micro TRS-80: 
Quasar IV reune tres programas em um so e ainda da de presente um 
compilador BASIC, em BASIC, para os mais exigentes. Entre logo nos 
quadrantes da Galaxia e comande esta ficpao! 



Quasar IV: uma 
aventura compilada 

Lavio Pareschi _ — - 



U m bom jogo f diftfdl. Em BASIC, entfo, d rare, prim 
tipalmente por causa da lentidSo do interpretador 
E na maioria dos jogos cm linguagem de miquina 
(Z8Q, neste nosso ease), o que temos? Uma lutade 
reflexes contra uma maquina que nfo se cansa de icpetir a 
me sun a cena, o rnesmo movimento, a mesma sequencia... repe- 
tir L repetir e repeiir. Fassada a novjdade, nao hf mais gra^a. 
Descabdrtos os macetes, nfo exist e mais desafio e o uuico 
objclivo passa a ser aumentar o ntimero de ponto$, o que, eon- 
venhamas, 6 muito poueo . 

A maior fraqueza de um jo, go & a fait a de criatividade, a nfo 
varied ad e, e a prdpria hmiu^So dos recursos disport iveis impfle 
esta cond^lo Simulates de jogos mreligentes, como dama, 
xadrez ou gamEo, sao excesses, isto quando (e s6 quando) sfo 
bem feitas, o que nao impede, no entanto h que muito s os con- 
siderem como jogos moEengas, justaincnte devido a auseneia de 
variedade. 

E o que e o Quasar IV? Umjogo irtoienga? Nfo, Um jogo de 
puro raciocinio abstrato ou de movimenta^ao assombrosa? 
Tambem nao. Ele 6 umjogo em que a principal caracterfstica 6 
a variedade, com vfrios jogos em um, todos seguindo um tenia 
comum, c que ora requer sorte , ora malandragem, ora rapid ez, 
dependendo das circuit stinciaa. Enfim, um jogo ffcil, d if foil e 
impossfveE 

Neste programa de fic^JO a grande aventura 6 sob revive? atd 
o fim dos tempos como comandante de uma e$pf conave (a 
Enterprise^ d daro!) que navega peios quadrantes da galfxia e 
precisa evitar ou combat er os inimigos da Feder&fffo (Kllngons, 
Romulans etc.) que nSo dSo sossego, O Quasar IV 6 em tempo 
real (cento ns) e se o comandante nfo flier nada, o tempo 
eonre, os inimigos o cercam e.«* jj era! 

NSo £ fled ser comandante desta Enterprise: £ preciso 
aprender a lidar com phasers, missels, campos de for^a, tern- 
pestades iAnicas, buracos negres, minas hiperespaciais, planet as 
de ant i -materia , sensores inter-galitkos, quadrantes do espa^o 
siderah comuni ca^Oes condificadas, chuvas de particulas> m6- 
dulos de sobrevivencia, de formates repentinas do espa^o e 
muito mais. 0 comandarite que chegar (vivo) ao fim de sua 
misslo, no tempo estipulado, receberl uma condccorafSo espe- 
cial da Federa^lol 



Q jogo e sonoro, com musicas, tiros e ruidos de toda e*p£- 
cie (o que nao falta & barulho). Apresenta tambem efeitos vi- 
suais e imagem dlversai, representando cada dreunstanda, e os 
comandos possiveis s^a gerahnente apresentados na pr6pria te- 
la, como opgCes para o comandante, 

ESTRITTURA DO QUASAR IV 

Q comando desta espa^onave exige cerca de 24 Kb de 
BASIC misturados com diversas sub-rotina$ ZSO, sen do duas 
oompiladas, de aproximadamente 5 Kb cada uma. Fddb Jt^o? 

Q Quasar JV estd dividido em trfs mddulos: I - Quasar/ 
MIX h em BASIC (listagem 4), programa principal que carrega 
os outros mddulos e cont^m todas as sub-ro Linas Z80, contro- 
lando as ebamadas via USR; 2 - QuasI/USR, em ZBO.compi- 
lado do programa Quasl/CMP, em BASIC (listagem 2), pelo 
compilador CompiSer/BAS (listagem 1), que tambem sera apre- 
sentado como parte integrants deste artigo; 3 - QuasII/USR, 
em Z&O, compilado do programa QuasII/CMP, em BASIC 
(bstagem 3), pelo compilador Compiler/BAS- 

A configura^do mais apropriada para o desenvolvimento do 
Quasar IV 4 um equipamento compativel com o TRS-SO mo- 
delo IIU coni 4B Kb de memdria e, pelo menos, urn drive. As 
listagens apresentadas do Quasar/ MIX e do CompiSer/BAS sfo 
para o NEWDQS 2-2 (ao final do texto p no Ap^ndice B, estao 
as adapt a^des necessaries para que rodem em TRS DOS). 

Fara a induslo das sub-rotina$ Z-SO dentro do BASIC de 
Quasar /MIX. aconselhamos o uso do programa utiUUrio Poko- 
des/BAS (publicado em MS nP 36), pois facilita bast ante. For 
falar em facilitar, com esta inten^So o Quasar IV foi dividido 
em quatro partes: 1^ - Compiler/BAS, com descriffo, instru- 
efies detaJhadaa e listagem; 29 - Quasi/ USR, com listagem 
(/CMP) e compilado; 39 - Quasi I/U SR, com listagem 
(/CMP) e compilado, 49 ^ QuasarVMIX, sua descri^ojnelu- 
sfo das sub-rotinas Z8G n instru^6es do jogo e listagem 

CQMFILER/BAS, 0 COMPILADOR 
BASIC, EM BASIC 

Uma ferramenta poderosa, o compilador. Para se elaborar 
um programa decente, e decente tern que ser em linguagem de 
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maquina, pelo menos em parte (como 6 o caso de Quasar 
IV), sem que fiquemos loucos ou desesperados escrevendo di- 
retamente em Assembler e debugando durante semanas (isso 
com otimismo), e essencial a utiliza^fo de um compilador. 

Mas como conseguir um bom compilador sem gastar muito 
ou se arriscar com piratas sem manual? Diffcil. Porem Quasar 
IV precisava de um e o jeito foi fazer um, simples, razodvel e 
que nao gastasse kilos de bytes para somar tres numeros, co- 
mo pude constatar em certos compiladores que experiments 
- uma piada o desperdicio de memdria! 

Compiler/BAS produz eddigo de maquina usando as rotinas 
da ROM do micro. Nao desperd^a memoria reservando espa 90 
para varidveis que nao serfo utilizadas, e no menu inicial sfo 
determinadas as dimensOes de todos os parametros necessi rios 
ao programa. Embora isto implique em maior lentidfo na exe- 
cu 9 §o, ganha-se em espa 90 de RAM. Rotinas envolvendo 
numeros inteiros e graficos (SET, RESET, POINT...) sfo acele- 
radas de 50 a 100 vezes e rotinas com numeros de simples pre- 
cisao sfo aceleradas de tres a 20 vezes em rela 9 fo ao interpre- 
trad r . Por ser escrito em BASIC, sua opera 9 fo e lenta,gastan- 
do ’ m minuto para compilar um Kb de programa, mas o resul- 
tauo vale a pena. (Quern quiser compilar o prbprio compilador, 
pode tentar...) 

Ele trabalha com numeros e varifveis inteiros ou de simples 
precisfo, atd duas dimensOes, bem como strings, e compila 
tambdm os principais comandos do interpret ador: LET, 
PRINT, IF... THEN... ELSE, GOTO, GOSUB, RETURN, 
FOR... NEXT, INPUT, POKE, PEEK, SET, RESET, POINT, 
CLS, REM, END, DEFUSR, USR, OUT, CHRS, VAL e as fun- 
96 es RND (0), SQR, ABS, LOG, EXP, COS, SIN, TAN, ATN, 
INT e COS. Claro que ha limita 9 Ces: e preciso atender a certas 
exigencias na forma de escrever o BASIC para ser compilado e 
a manipula 9 ao de strings poderia ser ampliada (f vontade...), 
mas o compromisso trabalho versus beneficio jf atingiu a um 
bom ponto com o que este compilador 6 capaz de realizar. Po- 
de-se tambem trocar varifveis entre um programa em BASIC 
rodando e um programa compilado chamado por aquele via 
USR, tornando o compilador muito util em programas mistos, 
onde rotinas grfficas (jogos) ou recursivas (matemftica) sfo 
muito lentas quando executadas pelo interpretador. 

Existe ainda a facilidade de se testar e debugar primeiro o 
programa em BASIC, jf pronto para a sintaxe de Compiler, 
que f um subconjunto da sintaxe do interpretador, e, quando 
funcionando a contento em BASIC, compilf-lo (isto pode pa- 
recer elementar, mas tern muito compilador no mercado que 
nao permite). 

A listagem 1 contfm o programa. Sua numera 9 fo deve estar 
sempre abaixo de 1000, pois acima de 1000, inclusive, deve 
ficar co-residente o programa que se quer compilar. O Compi- 
ler/BAS compila tudo o que estiver entre 1000 e 9999, sendo 
aconselhfvel terminar com 10000 END. Normalmente se faz o 
merge dos programas, digita-se RUN e o Compiler entao pro- 
cura a primeira linha maior ou igual a 1000 e pede os parame- 
tros do programa a compilar, para o dimensionamento interno 
das varifveis do programa e, inclusive, da posi 9 ao em RAM 
onde se quer colocar o resultado (DUMP e Entry-Point). 

Varifveis e armazenamento 

O Compiler divide a frea de opera 9 ao do programa compi- 
lado em tres setores na RAM, de baixo para cima (0 a FFFFH): 
varifveis, programa e textos. Como stack e usada a pilha do 
DOS. Quando se faz um DUMP para salvar o resultado, f sufi- 
ciente guardar o programa e o texto, pois a frea de varifveis 6 
preenchida na execu 9 fo do programa. Nfo se pode esquecer 
que a prote 9 fo do memory size deve estar um byte abaixo do 
inicio da frea das varifveis, se o programa for chamado pelo 
BASIC. O Compiler/BAS, em sua finaliza 9 fo, fornece as ins- 
tru 96 es e parametros necessfrios. Existem quatro tipos de va- 
rifveis aceitas e armazenadas em pos^Ses fixas na frea de varif 
veis: 



- Integer Variables (IV): 26 varifveis possiveis, de A% a Z%, 
sendo que cada uma ocupa dois bytes de mem6ria. 

- Single Precision Variables (SPV): sfo 286 varifveis possi- 
veis, que vao de A a Z, A0 a Z0, Al... Zl,..., atf A9 a Z9. Cada 
varifvel ocupa quatro bytes sucessivos na memoria. 

- String Variables (SV): com 26 varifveis possiveis, de AS a 
ZS. Cada uma ocupa os bytes na frea de varifveis definidos 
como comprimento das SVs. 

- Single Precision Arrays (SPA): sfo possiveis 26 varifveis de 
uma dimensfo (1- D), de A(IV) a Z(IV); e 26 varifveis de duas 
dimensOes (2-D) - quadradas, de A(IV1, IV2) a Z(IV1, IV2). 
Cada varifvel ocupa quatro bytes sucessivos na memoria. £ 
importante lembrar que as SPAs de duas dimens5es tern que 
ser quadradas. 

O limite da dimensfo 6 a memdria do micro. Pode-se usar 
um array alfm de sua dimensfo contanto que nfo se utilize 
os arrays subseqiientes da frea de varifveis, ou seja: se 
DIM= 20, e possivel usar A(IV) na dimensfo 30, desde que nfo 
se utilize o SPA B(x), que terf seu espa 90 de mem6ria ocupado 
por A(x). Normalmente, ao se dimensionar os SPA de uma 
dimensfo, por exemplo, em 10, serao usados os SPAs cujas I Vs 
sejam de 0 a 9. 

O compilador aceita a varifvel A(I%), pois 1% 6 uma IV. 
Mas nao aceita A(2), e se esta for empregada, surgirf uma men- 
sagem de erro. £ interessante observar que as varifveis A, A%, 
A(IV) e A(IV, IV) sfo diferentes. 

Defmi 9 oes e abrevia 9 des 

# Integer Variable (IV): A%... Z%. 

# Single Precision Variable (SPV): A. . .Z, A0. . .Z0, . . 
A9. . .Z9. 

# Single Precision Array (SPA): A(IV). . . Z(IV), A(IV, IV). . . 
Z(IV, IV). 

# String Variable (SV) : A $ . . .Z $ . 

# Constant e (C): qualquer inteiro ou numero decimal. 

# Possivel Inteiro (PI): qualquer inteiro na faixa de -32767 
a 32767. 

# Byte Integer (BI): inteiro de 0 a 255. 

# String (S): qualquer seqiiencia de caracteres entre aspas, 
sendo que as aspas finais podem ser omitidas se a string residir 
no final de uma linha BASIC. 

# Integer Expression (IE): qualquer seqiiencia da forma 

YlxY2xY3x. . em que Yl, Y2, Y3 representam um inteiro 
positivo menor ou igual a 32767 ou entfo uma IV, e x pode 
ser o sinal de + ou de — . A seqiiencia pode come 9 ar com um 
sinal de subtra 9 ao, mas nfo com um sinal de adi 9 fo ou com 
um 0 seguido de um sinal de adi 9 fo. Parenteses nfo sfo permi- 
tidos, nem necessfrios. O compilador tambfm avalia expres- 
soes inteiras do mesmo jeito que o interpretador, mas se o resul- 
tado nfo estiver entre -32767 e +32767, o programa nfo indi- 
carf o erro e observe-se que 3* 5+1 nfo e uma IE. 

# Single Precision Expression (SPE): qualquer expressfo em 

BASIC (que nfo seja ilegal), com ou sem parenteses, formada 
de: C, IV, SPV, BI, PI, operadores +, /, simbolo de POT, e 

as fun 9 oes RND(0), SQR(SPE), ABS(SPE), LOG(SPE), EXP 
(SPE), COS(SPE), SIN(SPE), TAN(SPE), ATN(SPE). Veja a 
seguir quatro exemplos que ilustram bem: 

a) - ( 1+SQR (1.2*A%+SIN(A(I%,J%)*2.5) ) ) 

b) LOG( ARS (Z0*0.123+l ) /SIN ( COS ( TAN ( A( K% ) +1 ) ) ) ) 
C) (-1.2+3. 4+5) 

d) ( I %+J*L% ) 

O compilador avalia as SPEs da esauerda para a direita, nfo 
importando a sua natureza (sejam *, /, +. . mas respeita os 
niveis de parenteses. Por isso, 6 preciso tomar bastante cuidado 
com a forma de escrever as SPEs, devendo-se usar os parenteses 
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a vontade para obter o resultado correto. Assim foi feito para 
facilitar a elaborate). Por exemplo, uma linha BASIC, assim: 
A-KB+2T) # (D+E),terd que serreescrita para:(2 # C+B) *(D+E)+A 
ou entdo A*K(B+(2 *C)) *(D+E)). Se houver duvida, e preferivel 
usar parenteses. 

Coman dos e sintaxes 

• LET: a palavra LET ndo e necessdria, mas pode ser usada 
nas seguintes circunstancias: 

1 ) Integer LET: X=Y 
X: IV 

Y: IE, INT(SPE), PEEK(Pl), PEEK(IV), POCMT(z, y), em que 
z e y sao IVs ou Bis. 

Exemplo: 

X%=S%+3+INT( 2*RND( 0 ) )+PEEK(-l) 

2) Single Precision LET: X=Y 
X: SPV 

Y: SPE 
Exemplo: 

Q=SQR( (A*A)+(B*B) ) 

3 ) String LET: X=Y 
X: SV 

Y : S, SV, CHRS(z)+CHR$(y)+. . . em que z e y sao IVs ou Bis. 
Exemplo: 

A$="Compiler", A$=CHR$(32) 

Observe-se que AS+XS. . . ou “abc“+“def“ nao podem ser 
usados, entretanto, atraves de PRINTs e possivel a concatena- 
9 ao de strings. 

• PRINT 

1 ) PRINT (line feed e carriage return) 

2) PRINTX; Y;Z;. . . 

X, Y,Z:SPEs,SVseSs 

3) PRINT @ X. Y: Z ; . .. 

X: PI de 0 a 1023, e IV 

Y, Z: SPEs, SVseSs 

4) PRINT @ X, Y 

X: PI de 0 a 1023, e IV 

Y: CHRS(BI)-KTHRS(BI)+. . .(neste caso, o cursor ndo e modi- 
ficado) 

Rcpare que nao se deve usar virgula, mas sim ponto e virgula, 
na separa^ao entre variaveis dentro de um PRINT. 

• IF. .. THEN. .. ELSE 

1 ) IFXusgYTHEN (# linha) ELSE . . 

X: IV, SPE (mas que nao comece com uma IV) 
usg: >,< ,<>,><, >-.<=,->,= < 

Y : se X SPE THEN SPE ,se X-IV THEN IV ou PI 
4 linha: numero de linha BASIC 

Note-se que ELSE pode ser seguido de quaisquer outras instru- 
9 oes, inclusive IF. . . THEN. . . ELSE. 

2) IFXusg YTHEN : GOTO (# linha) ELSE. 

XusgY: igual a anterior 

• linha: numero de linha BASIC 

Neste caso, depois de THEN e ELSE podem vir quaisquer 
outras instru$<5es, inclusive IF. . .THEN. . . ELSE. 

3) IFXusgYTHEN ( # linha) ou entao IFXusgYTHEN 

(quaisquer instru 9 oes) 

£ importante destacar as seguintes caracteristicas: o limite de 
IFs, um dentro do outro, em uma mesma linha, e de 10; THEN 
pode ser substituido por GOTO ou THEN GOTO (nos itens 1 
e 3 ); diferentemente do interpretador, e preciso terminar cada 
THEN. . ., quando seguido de instrufGes, com um GOTO antes 
do ELSE. Veja tres exemplos elucidativos: 



IFA%=B%THEN2000ELSEPRINT"pqrt" 
IFZ%=>X%THENPRINT"Pele" : GOTO2000ELSEEND 
IFA <>2*BTHENA% = INT ( A ) : PRINTB 

Repare que: se X=IV e Y=SPE que ndo comece com uma IV, 
pode-se relacionar (X%)usgSPE ou SPEusgX%. Outra observa- 
9 ao interessante: IF THEN ELSE com numeros inteiros 6 mui- 
to mais rdpido. 

• GOTO (# linha) 

• linha BASIC 

• GOSUB(# linha) 

• RETURN 

• FORX=YTOZ 
X: IV 

Y, Z: IV, PI 

Observa 9 ao: Y tern que ser < =Z (aten 9 ao que o compilador 
nao indica este erro); STEP ndo e aceito, mas pode-se fazer 
STEPs diferentes de 1 criando-se loops de software ou alteran- 
do-se x dentro do FORX. . . NEXTX. 

• NEXTX 
X: IV 

Observa 96 es: X n£o pode faltar; ndo se deve pular fora de um 
loop FOR-NEXT sem correr o risco do programa sob execu 9 ao 
falhar. Cada NEXT deve estar associado ao seu FOR antece- 
dente, mas o compilador ndo indicard se isto ndo for obedeci- 
do. Multiplos FOR— NEXT sao permitidos sem limite. Este 
exemplo demonstra a sintaxe cert a: 

FORI%=lTO10 : FORJ=lTO50 : . . . :NEXTJ% :NEXTI% 

• INPUTX ou INPUT X 
X: IV, SPV, SV 

Deve-se ressaltar que os numeros podem ter ate seis digitos. Se 
X= IV, e possivel introduzir numeros decimais, que serao trun- 
cados. Nao esque 9 a que numeros inteiros para IVs devem estar 
contidos entre +/- 32767, caso contrario, um erro fatal ocor- 
rera. 

0 POKEX, Y 
X: IV, PI 
Y : IV, BI 

• SET(X, Y), RESET (X, Y); POINT (X, Y) 

X, Y: IV, BI (sendo que dentro da faixa legal para tais fu^Qes) 

• OUTX, Y 
X: BI 

Y: BI ou IV 

• DEFUSR=X 
X: IV ou PI 

• USR(X) 

X: IV ou PI 

£ util destacar que com os comandos acima (DEFURSR=Xe 
USR(X)) um programa compilado pode chamar outro via URS 
ou tambem rotinas de som, por exemplo: 

40 DEFUSR=A% : USR ( 0 ) 

• CLS; REM ou ’ e END 

£ preciso que haja um END em cada ponto que se quer retor- 
nar ao programa chamador do programa compilado (como um 
RETURN). No caso do chamador ser um programa do BASIC 
via USR, e antes do END que as varidveis do programa Z80 
podem ser transferidas para o programa em BASIC. 

• X=VAL (Y) 

X: IV 

Y: SV 

Inteiros negativos retomam zero, e inteiros acima de 32767 
retornam como — ( ). Por Exemplo: I%=VAL (AS), em que 

AS =“60000” retorna 1%^— 5536. 



Transferences de varidveis 

Como certas fun 9 oes do interpretador ndo podem ser com- 
piladas (disco e cassete I/O, PRINTUSING, manipula 9 ao de 
strings. . .), e interessante que ao se elaborar um programa mis- 
to - BASIC e Z80- haja um meio fdcil de se transfers dados 
em varidveis entre um programa e outro. Para isso, o Compiler/ 
BAS utiliza as seguintes instn^oes: 

• X=0+Y Y(BASIC) para X(Z80) 

X: IV ou SPV do programa Z80 

Y : IV ou SPV do programa BASIC 

• X=1 *Y X(Z80) para Y(BASIC) 

X: IV ou SPV do programa Z80 

Y : IV ou SPV do programa BASIC 
(Obs.: ambas IVs ou ambas SPVs) 

Eis alguns esclarecimentos necessarios: se a variavel Y do 
BASIC ainda nao existir quando for realizado um X= 1*Y, o 
programa compilado usando as rotinas da ROM do micro a 
criard, efetuando normalmente a transference; se, ao debugar 
o programa fonte em BASIC/CMP, for feito um X=Y, ndo ha- 
verd interference na opera 9 do;as transferencias podem ocorrer 
em qualquer ponto do programa, embora em geral sejam feitas 
no inicio e no fim (antes do END). 

No menu inicial, os parametros 

Ao se rodar o Compiler/BAS, este pede uma serie de parame- 
tros que vdo dimensionar as areas das variaveis, do texto e do pro- 
grama e estabelecer seus respectivos inicio e fim na memoria. 
O compilador calcula as dreas reservadas de cima para baixo, a 
partir do topo da memoria (FFFFH-300 bytes de sistema proi- 
bidos). Acompanhe a seguir uma breve descri 9 ao da sequencia 
de pardmetros solicitados: 

a) Memoria para programa? 

Estimativa do tamanho (bytes) do programa compilado (area 
de programa). Como regra geral, estima-se em 1 500 bytes de 
Z80 para cada 1000 bytes de ocupa 9 do (nao ap 6 s a execu 9 ao) 
do programa fonte (BASIC/CMP). 

b) Numero de linhas a compilar? 

Estimativa do numero de linhas do programa fonte em BASIC/ 
CMP. 

c) Numeros de GOTOs mais GOSUBs? 

Estimativa (superior) do numero de GOTOs e GOSUBs exis- 
tentes no programa fonte. 

d) Offset de memoria? 

Permite reservar espa 90 adicional no fim da memoria, fazendo 
com que o topo da RAM para o compilador ndo seja FFFFH - 
300, mas FFFFH-300 menos o valor fornecido neste parame- 
tro. Se for 0, o topo permanece em FFFFH-300. Isto e muito 
util quando se quer usar vdrios programas compilados juntos 
que, 6 claro, nao poderdo ocupar a mesma regiao; ao se compi- 
lar o segundo programa, por exemplo, dd-se um offset equiva- 
lente d drea efetiva (variaveis+programa+textos) do primeiro 
programa, o que permite ao compilador reservar uma area para 
ele, no topo da RAM. 

e) Bytes para texto? 

Estimativa do numero de caracteres a serem usados como tex- 
to no programa. Texto para o compilador £ toda string entre 
aspas dentro de um PRINT. Por exemplo: PRINT “Pitrusgh”. 

0 Neste ponto, o compilador vai procurar a primeira linha 
igual ou superior a linha # 1000 dentro do BASIC onde 
estao o Compiler/BAS e o programa fonte (de 1000 a 9999). 
Esta procura demora cerca de meio minuto, e isso e muito 
importante. (Quern quiser colocar o programa fonte antes 
do compilador para pegar logo a primeira linha BASIC para 
compilar, pode faze-lo, mas vai ter que se preocupar com a 
viiada dos endere 90 s e ponteiros internos de 32767 para 



— 32768 das varidveis inteiras usadas nos POKEs e PEEKs 
do programa, ap 6 s os 32 Kb de memoria inicial. Usando-se o 
BASIC Disco, depois do compilador a linha 1000 do programa 
fonte estard certamente apos o endere 90 32767. 

g) Entry-Point ok (S/N)? 

E mostrado o Entry -Point do programa calculado ap 6 s as dreas 
ja definidas e deve-se responder se estd ok ou nao. Caso queira- 
se determinar um outro Entry -Point, 6 so responder nSo que o 
menu pedird o novo endere 90 decimal, e uma nova localiza 9 ^o 
do programa compilado e calculada em fun 9 do do novo Entry- 
Point. 

h) Numero de SPVs com numeros? 

0 numero de varidveis inteiras possiveis e fixo em 26, de A% a 
Z%. O numero mmimo de SPVs possiveis tambdm 6 26 (de A 
a Z) se for respondido 0, mas existe a possibilidade de se che- 
gar a 286 combinando-se numeros com letras. Se a resposta for 
1, estarao disponiveis as varidveis de A a Z e de A0 a Z0, e 
assim sucessivamente ate 10: de A-Z, A0 Z0. . . A9-Z9. Por- 
tanto, ao se escolher as varidveis SPVs do programa fonte, de- 
ve-se faze-lo nesta sequencia para ndo desperdi 9 ar memdria, e 
jamais usar A, XI e Z9. Cada SPV usa quatro bytes e se for 
preciso utilizar todas as SPVs haverd o emprego de 1 144 bytes 
da memoria. 

i) Dimensao dos arrays de uma dimensdo (1 -D)? 

Seu unico limite e a memdria disponivel. Como os arrays de 
uma e duas dimensdes (1 — D/2 — D) sao todos SPVs, cada uni- 
dade do array precisa de quatro bytes. 

j) Numero de SPAs de uma dimensao (1-D)? 

1 A( );2A( )-B( );3A( >B( >C( );26A( )aZ( ) 

k) Dimensao dos SPAs de duas dimensOes (2-D)? 

Sao sempre quadrados e o limite e a memoria. 

l) Numero de SPAs de duas dimensGes (2-D)? 
lA(,);2A(,)-B(,);5A(,)aE(,); 26:A(,)aZ(,) 

m) Numero de variaveis strings? 

\AS 2AS,BS 3:A$,BS,C$ ... 26 A$,B$, . . . ., Z$ 

n) Comprimento maximo das SVs? 

De 0 a 255. 

Agora o compilador d£ uma geral nos parametros e aguarda 
um sinal apos a revisSo do usuario e, finalmente come 9 a. Se for 
encontrado algum erro na sintaxe apresentada, o compilador 
para e mostra o numero da linha incorreta. A medida em que o 
trabalho e realizado, algumas informa 9 Ges sao exibidasna tela 
para permitir o acompanhamento da compila 9 So. Se uma das 
tres areas (variaveis, programa e texto) se sobrepor k outra, 6 
indicado o erro. 

Ao terminar a compilado, e apresentado um mapa de ende- 
re 90 S da memoria utilizada, com inicio e fim de todas as areas 
de IVs, SPVs, SPAs de 1-D, SPAs de 2-D, SVs e cGdigos de 
maquina com programa e textos. E, por fim, o compilador 
acaba, oferecendo duas op 9 Ges: 

1 - RUN: executa o programa compilado e na memoria; 

2 - SAVE: mostra no video o DUMP necessario para se salvar 
o programa da memoria, com os parametros de INlfclO, 
ENTRY-POINT e FIM. Note-se que o comando DUMP s 6 pode 
ser executado manualmente, pois nao permite varidveis nos 
seus parametros (tanto em TRSDOS quanto em NEWDOS). 

Dicas para nao errar 

£ fundamental seguir as regras jd descritas, pois o compila- 
dor nem sempre indica que hd erro na linha tal e, se houver 
erro e o programa for executado. . . Adeus! Justamente para 
evitar isso, leia com bastante aten 9 do estas dicas: 

— Os comandos corretamente especificados, exceto em um 
caso de PRINT @ e de USR ( ), deverdo ter os mesmos resul- 
tados quando rodados em BASIC ou compilados. 

— Cuidado especial deve ser dado ds expressGes de simples 
precisao (SPE), nao se esquecendo a ordem de execu^o dos 
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operadores aritmeticos, da esquerda para a direita. 0 uso de 
parenteses pode facilitar muito. 

- As varidveis devem ser inicializadas antes de serem usadas 
pela primeira vez, pois se n£o sSo zeradas, contem lixo. 

- Nao sao aceitos espa^os (blanks) em meio aos comandos. 
Assim, 6 errado digitar A% =2, o correto 6 A% =2. 

- Multiplos comandos em uma mesma linha sSo normalmente 
permitidos, desde que sejam separados por dois pontos ( : ), 
por exemplo: PRINT “Name”; : INPUTAS. 

- Para passar o valor de uma SPV para uma IV, utiliza-se a 
fun^ao CMT( ). Exemplificando: X% =INT(A) ou entffo X% 
=INT(A # RND(0)). 

- Muita cautela com os parSmetros: coisas muito esquisitas 
podem acontecer se eles forem mal dimensionados. 

- aproveite a velocidade dos comandos PRINT @ , SET, 
RESET e POKE para dar dnimo ao visual dos seus programas. 
Sem esquecer de incluir rotinas para controle da velocidade. 

- O compilador nao verifica se o resultado para uma IV e um 
inteiro: 40000 nao cabe em X% e, assim, nSo vai funcionar 
direito. 

- Um GOTO nSb deve ser colocado dentro de um FOR... 
NEXT. Ali2s, nSo inventar na programa^o e sempre um bom 
conselho. 

- Rotinas de som sSo sempre melhores se geradas em Assem- 
bler e nao compiladas. Mas, variando OUT255,X pode-se obter 
um resultado razodvel. 

- Melhor do que empregar o INKEYS e usar PEEK (endere^o 

do teclado). Fazendo PEEK(I4400), tem-se: 1 -ENTER, 

24XEAR, 4 BREAK, 8-UP, 16 DOWN, 32-LEFT, 64-RIGHT, 
1 28-SPACE. . . (o manual do equipamento deve ter os demais 
endere^os). 

E nada melhor do que testar tudo o que foi afirmado sobre 
o compiler/BAS com este exemplo de aplica^ao, que roda 
umas 25 vezes mais rdpido do que em BASIC: 

1000 INPUT” Name" ;A$ 

1010 CLS : A%=0 : GOTOI 100 

1020 X % = I NT (128* RND ( 0 ) ) : Y% = INT( 48*RND( 0 ) 

) : RETURN 

1100 FORJ%= 1TO30 :OUT255 , 3 sGOSUBl 020 :SET( 

X% , Y% ) :OUT255 , 1 :GOSUBl 020 :RESET( X% , Y% ) :N 
EXTJ% 

1110 IFA%=0THENPRINT 506 A$ A%= 

1 : GOT0 1 1 20ELSEPRINT@506 , ” "? :A% 

*0 

1 120 FORJ%= 1 TO70 : OUT25 5 , 1 : F0RK%=J%T077 : N 
EXTK % : OUT2 55,1 : NEXT J % ' som e delay 
1130 J% = PEEK ( 14400) :IFJ%< >4THEN1 1 00ELSEE 
ND 

10000 END 

Qs parametros para conpila^o do exemplo acima sSo: uns 500 
bytes para o programa (dd e sobra); 10 linhas; 10 GOs; offset 
zero; 100 bytes para texto; Entry-Point ok; SPVs com nume- 
ro igual a zero (o programa nem usa SPVs); DIM 1=D, nu- 
mero 1-D, DIM 2-D e numero 2-D, tudo zero; numero de 
SVs igual a 1 (usou-se s6 AS); comprimento de SVs igual a 
10 e... Pronto. 

Vamos agora & listagem 1. 



Listagem 1 - Compiler/BAS 



0 'Basic Compiler. •**•**■ Retire Reas ••«•••• Zorro/84 

1 P OK E 1 656 1 , 255 * P OK E 1 6562 ,255 (POKE 16544 ,255 (POKE 16545, 255 (CLEAR > 
CLSiPR INT8960, "Heaor i a Oispooivel (",HEH-2580| (L \ -65536-MEH>*2400( 

I l»INT(L 1/256) IP0KE16562, I • *P0KE16561 ,L I -256*1 t 1G0T0149 

2 POKEh , P iPR INTP » ( M-H+ K RETURN 

3 PC-PEEK (8) (PN-PEEK <8*1 ) *«-«♦! * IFPC-32THEN3ELSEIFPC-OC-2«RETURN 
ELSERETURN 'peek proxiaos cod isos basic 

4 PC-PEEKC8)*0-Q^1«RETURN 

5 IFPC<650RPC >90THEN8ELSERETURN 

6 IFPN< >37THEN8ELSEQ-Q*KRETURN 

7 IFC1 >9990RC1 < 10000THENRETURN 

8 PRINTiPRINT' ERROR LINE R",L1 (L) «END 

9 PRINT940, TIME* ) (RETURN 

10 I-PEEK <FNA< 0*2 > ) ♦256*PEEK (FNA< 8*3 )) (RETURN 

11 'Rotinas de staples precisao 

12 G0SUB3( G0SUB5* VI “PC-65* IFPN< 48ANDPN >57ANOPN< >213AN0PN< >40ANDC 
F < >1THEN8 

13 IFPN >47AN0PN<58NI“PN-47 (G0SUB3ELSENI“0 

14 IFPN-213Z1-1 (RETURN 

15 IFPN“40G0SUB3(G0SUB3(G0SUB5(V2“PC-65(G0SUB6(G0SUB3ELSEIFCF“1Z 
1-1 (RETURN 

16 IFPC< >41ANDPC< >44THEN8 

17 IFPC-41Z1-2*RETURN 

18 IFPC-44G0SUB3*G0SUB5* V3-PC-65* IFV1 ( 00RV1 >«NTTHEN8ELSEG0SUB6 1 Z 
1-3»G0SUB3(IFPC< >410R(PN< >213ANDCF< >1 ) THEN8ELSERETURN 

19 'Calculo Endereco 

20 0NZ1G0SUB21 ,22, 23*RETURN 

21 IFNI > ISTHEN8ELSEC1 -VF+ ( VI ♦HI *26 ) *4 * G0SUB83 IG0T01 1 2 

22 V7-V1 * V8-V2*G0T025 

23 V7-V1 * V8-V2* V9-V3*GOT026 
«?4 'Arrays 

25 VO-VR ( GOSUB 1 1 7 * GOSU8 1 1 4 >C 1 - VA* V7 «DO» 4 ( G0SUB83 * GOSUB UK GOTOI 1 
3 '1-d 

26 VO-V9*GOSUBll7*P»41*GOSUB2(Cl-VO+4*NT*OT*OT-*-2*V7*OTiGOSUB83*G 
OSUB UK GOSUB 11 3 * P -94 ( G0SUB2 * P-35 * GOSUB2 * P -86 ( GOSUB 2 * V0-V8 ( GOSUB 
117 (60SU8 1 1 4 (GOTOI 13 '2-d 

27 'Avaliacao de Expressoes de Staples Precisao 

28 G0SUB3* JFPC< >206G0T030 

29 El >0 > 01 -0 (GOSUB 1 12* GOSUB 124 ( GOSUB 124 (G0T035 'sinal - 

30 G0SUB41 

31 GOSUB 3 ( IFC-20RPC-4 10RPC-580RPC-590RPC-2120RPC-2130RPC-2140RPC 
-1 410RPC-202THENRETURN 'se terainacao, return 

32 GOSUB 128 'aove de (4121H) p/ stack, valor i nt eraed i ar i o 

33 'poe nova variavel ea 4121H, executa 

34 IFPC-205G0SUB3(G0SUB41 s GOSUB 1 29 (GOSUB 1 31 (G0T031 'soaa 

35 IFPC-206G0SUB3 * GOSUB 41 (GOSUB 129 (GOSUB 132* G0T031 'subtrai 

36 IFPC-207GOSUB3 ( GOSUB 4 1 ( GOSUB 1 29 ( GOSUB 133(G0T031 'aultiplic* 

37 IFPC-208GOSUB3( GOSUB41 (GOSUB 129 ( GOSUB 134 (G0T031 'divide 

38 I FPC-209Q0SUB3 * GOSUB 41* GOSUB 129 ( GOSUB 1 35 ( G0T031ELSE8 'exp 

40 'Rotina p/ tratar constantes, var levels e funcoes ea expresso 
es de siaples precisao e coloca-las na area de 4121H 

41 IF < PC< 58AN0PC >47 )0RPC-46G0SUB86 * RETURN 'converte constantes p 
/ representacao de 4 bytes 

42 IFPC-222G0SUB3* 1FPC < >40THEN8ELSEG0SUB3* IFPC< > 48THEN8ELSEG0SUB 
3* IFPC< >41THEN8ELSEP-205*GOSUB2*P-240*GOSUB2*P-20*GOT02 'Rnd(O) 

43 IF(PC>220ANDPC<22V>0RPC-2170RPC-40TXtN54fcLSE00SUB5 'funcao OU 
erro 

44 V4-PC-65* IFPN >47AN0PN< 58THENNE-PN-47 * GOSUB 3 * Z2-1 ( G0T049ELSEIF 
PN< > 40ANDPN< >37THENHE-0*Z2«1 *G0T049ELSEIFPN-37THENZ2-4*G0SUB3iG0 
T 049 

45 GOSUB3 * GOSUB 3 * GOSUB 5 ( V5-P C -65 * GOSUB 6 * GOSUB 3 

46 IFPC< >41ANDPC< >44THEN8 

47 IFPC-41 Z2-2 '1-d array 

48 IFPC-44GOSUB3*GOSUB5*V6-PC-65*GOSUB6*Z2-3*GOSUB3*IFPC< >41THEN 

49 0NZ2G0T050,5i ,52,53 

50 IFME > ISTHEN8FLSECl-VF + < V4+ME*26)*4*G0SUB83*G0SUB1 12 (GOTO 127 

51 V7-V4 * V8-V5 * GOSUB 25 * GOTO 127 

52 V7-V4 * V8-V5 * V9-V6 * G0SUB26 * GOTOI 27 

53 V0-V4 (GOSUB 11 7 (P-34 *G0SUB2*P-33*G0SUB2*P-65*G0SUB2 (P-205* GOSU 
B2*P-204* GOSUB 2 * P- 1 0 * GOT 02 'converts variaveis intciras ea siapl 
es precisao 

54 IFPC-40THEN64ELSE8-8U '< 

56 IFPC-221 THEN65 'syr 

57 IFPC-21 7THEN66 'abs 

58 IFPC-223THEN67 'log 

59 IFPC-224THEN68 'exp 

60 IFPC-225THEN69 'cos 

61 IFPC-226THEN70 'sen 

62 IFPC-227THEN71 'tan 

63 IFPC-228THEN72 'atn 

64 GOSUB 28 * G0T073 

65 GOSUB28* GOSUB 137 (GOT 07 3 

66 G0SUB28* GOSUB 1 38 (G0TO73 

67 G0SUB28* GOSUB 139 (G0T073 

68 G0SUB28* GOSUB 140* GO T073 

69 G0SUB28* GOSUB 141 (G0T073 

70 G0SUB28* GOSUB 1 42 (G0T073 



NAO PERCA A PROXIMA EDIQAO DE MICRO SISTEMAS 



• CBBSs — como funcionam, o que oferecem, quais os existentes etc. • Repor- 
tagem sobre clubes de usuarios e pontos de encontros • Tecnicas de Rede PERT 
para Apple e Sinclair • Para TRS-80: continuagao do MBDADOS • No Banco de 
Software: Controle de congelados, Conta bancaria, Fungdes no CP/M e muito 
mais. 




QAPfYLANCA 
OTI UNITRON 
EEXPUCA: 



TLQUER 



Quatro. Repetigao 
automatica de carac- 
teres. 

Cinco. Diagnostico 
de teste autom^tico 
ao ligar. 



Hg£ 



enha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visita de um Consultor 
Tecnico Clappy no 
seu escritono. 

Ali^s, na Clappy 
voce encontra tuao o 
que precisa em 
microcomputadores, 
perifericos, suprimen- 
tos, softwares. Alem 
de cursos proprios de 
programagao e 
operagao, assistencia 
tecnica, implantagao 
e instalagao de siste- 
mas. E mais. 

Aplicativos 
comerciais: contabili- 
dade, controle de 
estoque, folha de 
pagamentos, contas a 
pagar e a receber. 

Aplicativos de 
apoio: planilha 
financeira, processa- 
mento de dados, 
mala direta, caaastro 
e cpntrole financeiro, 
graficos, etc. 

Seja por venda, 
seja por leasing, 
ninguem pode fazer 
um preco melhor do 
que a Clappy. 



DKERTBlADOi®’ 

NTEUGENTE. 



O TI e o mais novo um teclado gerador 
microcomputador da de caracteres para a 
Unitron. lingua portuguesa. 

Ele tern um mi- Veja o que este 

croprocessador 6504 teclado pode fazer : 

e um teclado Um. Programagao 

inteligente. Isto e, de fungoes especiais 



em qualquer tecla. 

Dois. Redefinigao 
das posigoes da tecla 
pelo proprio usu^rio. 

Tres. Modo de 
operagao igual a 
maquma de escrever. 



Centro: Av. Rio Branco, 12 - 
loja e sobreloia. 

Tel.: (021)253-3395 
Centro: R. Sete de Setembro, 
88 -loja Q (galeria) 

Tel.: (021)222-5517/222-5721 
Copacabana: Rua Pompeu 
Loureiro, 99. 

Tel.: (021)257-4398/236-7175 
Aberta diariamente das 
10 As 20 horas e aos 
sdbados das 9 as 14 horas. 
Estacionamento proprio. 

Assistencia Tecnica : 
234-9929/234-1015 
Entregamos em todo 
Brasil pelo reembolso Varig. 





QUASAR IV: UMA AVENTURA COMPILADA 



71 G0SUB28*G05UBl43*G0T073 

72 GOSUB 28 * GOSUB 144 

73 IFPC( >41THEN8ELSERETURN 

75 '•* Rotinaa de Conver««o •• 

76 'Calcuto de Lab/Mab de atrlng nuaerico tntelro (Ascii) 

77 CS-""* IFPC-206THENPC«45*G0SUB81ELSEG0SUB80*IFC*-""THENC1— HR 
ETURN 

78 C1-VAL(C*> 

79 Dl-Cl/256*El-Ct-Dl«256* IFC1(0THEND1-01+256*C1 — Cl iRETURNELSER 
ETURN 

80 IFPC< 480RPO57THENRETURN 

81 Ct-CS+CHRKPC) SG0SU831G0T080 

82 'Calculo de endcrccoa tciM de 32K 

83 01 -Cl/256 *E1-C1-D1 *256* Di-Di+256* RETURN 

84 Z-VT^Vt^Vl»Pt»Z/256*P-Z-Pta256*Pl-P1^256*RETURN 

85 'Converaao de string nuaerico ea staples preciaao, 4 bytes 

86 Ct-CHR%(PC ) 

87 GOSUB 3 * IF <PC< 58ANDPC >47 >0RPC-46CS-CS+CHRS(PC ) *G0T087 

88 R-VAL(C*> (G0SUB89* El-33 *D1 -65* GOSUB 112*C1-B3* GOSUB 1 16* P-35* GO 
SUB2*C1-B2 * GOSUB 1 16*P-35*G0SUB2*C1 -B 1 * GOSUB 1 1 6*P-35*G0SUB2*C1-BE 
* GOSUB 1 16*8-8- 1 * RETURN 

89 IFR-OTHENBE-OlB 1-0*82-0* B3-0* RETURN 

90 Yl-1 * Y2-2*N-1 * IFYt >RTHEN93 

91 IFY2<-RTHENY1-Y1^Y1*Y2-Y2+Y2«N-NM *G0T091ELSE94 

93 IFR( YiTHENYi-Yi/2* Y2-Y2/2*N»N-1 *G0T093 

94 BE-N+128* X1-0*R-R-Y1* GOSUB 97 *B 1-B 

95 GOSUB 98* Xl-X * GOSUB 97 *B2-B 

96 G0SUB98*X1-X*G0SUB97*B3-B* RETURN 

97 G0SUB98 * X2-X * G0SUB98 * X3-X * G0SUB98 * X4-X * G0SUB98 * X5-X * GOSUB 98 * X 

6-X*G0SUB98*X7«X*G0SUB98*X8-X*B-Xl + Xl«-X2*B-B>*B*X3*B-B*B*X4iB-B*B 
♦ X5*B-B*B+X6*8«B+B«>X7*B-B>B*X8* RETURN 

98 Yl— Yl/2*RT«R-Yi*IFRT <0X-0*RETURN*ELSEX-1 *R-RT*RETURN 

99 'Poke string na area teaporaria 

100 Cl-HF *G0SUB83* GOSUB! 12*NN>1 

101 IFPC-34G0T0109 

102 GOSUB 108 

103 IFFP-1 ANDPEEK (8>-328-8M *PC-32*NN-NN+1 (GOTOIOS 

104 GOSUB 3 * NN-NN+ 1 

105 IFFP-1 AND (PC-340RC-2 ) GOTO 109 

106 IFFP-0AND( PC-580RC»2)G0T0109 

107 G0T0102 

108 Cl-PC* GOSUB 1 16* IFPC< >0THENP-35*G0T02EL SERE TURN 

109 8-0- 1 *C-0*PC«3* GOSUB 108* IFNN>SLTHENPR INT *PR INT"STR ING TOO LO 
NG" *G0T08* EL SERE TURN 

110 '•• Codigos de aaguina ♦ uaadoa • » 

111 P-17*G0SUP2*P-E1 *G0SUB2*P-01 *G0T02 'LD DE.Ei.Dl 

112 P-33*G0SUB2*P-E1 *G0SUB2*P-D1 *G0T02 'LD HL.E1.D1 

113 P-25*G0T02 'ADD HL,DE 

114 P-41 *GOSUB2*P-41 *G0T02 '2x ADD HL.HL 

115 P-235*G0T02 'EX DE.HL 

116 P -54 * GOSUB 2 * P -C 1 « GOT 02 'LD (HL).Cl 

117 C 1 -VT^VO+VO * G0SUB83 * P -42 * G0SUB2 * P -E 1 * GOSUB 2 * P -0 1 * G0T02 'LD H 
L.C1 

118 P -42* GOSUB 2 * GOSUB 84 * G0SU82 *P-P 1 *G0T02 'LD HL,<P1P> 

119 P -34 * GOSUB 2 * GOSUB 84 * GOSUB 2 * P -P 1 * G0T02 'LD (P1P>,HL 

120 P-195*G0SUB2*P-E1 *G0SUB2*P-Dl *G0T02 'JP E1D1 

121 P«1 83 *G0SU82* P-237 *G0SUB2*P-82*G0T02 'OR A, SBC HL.DE 

122 P-40*G0SU82tP-3*G0T02 'JR Z,3 

123 P»225*G0T02 'POP HL 

124 P-229*G0T02 'PUSH HL 

125 P-209«G0TO2 'POP DE 

126 P-213*G0T02 'PUSH DE 

127 P-205*G0SUB2*P-177*G0SUB2*P-9*G0T02 '( 4121H >-var I avel 

128 P-205*G0SUB2*P-164*G0SUB2*P-9*G0T02 '(Stacl^)-(412iH) 

129 P»193«G0SUB2*G0T0125 'POP BC, POP DE 

130 'Rotinas Aritacticas e Funcoes 

131 P-205 * G0SUB2 * P-22 * G0SUB2 * P-7 * G0T02 

132 P-205 *G0SU82*P- 19 *G0SUB2* P-7 *G0T02 

133 P-205 *G0SUB2*P -71 *G0SUB2 *P-8*G0T02 

134 P-205 *G0SUB2*P-162*G0SUB2*P-8*G0T02 

135 P«205*G0SUB2 *P-247 *G0SUB2*P-19*GOT02 

136 P-205*G0SUB2*P-12*G0SUB2 * *P-10*G0T02 

137 P-205*G0SUB2*P"231 * GOSUB 2* P-19* G0T02 

138 P-205* G0SUB2*P-239*G0SUB2*P-10*G0SUB2* P-205 *00SUB2*P-i 19* 60S 
U62IP-9IG0T02 

139 P-205 * GOSUB 2 * P-9 *G0SUB2 * P-8* G0T02 

1 40 P -205 * GOSUB 2 * P -57 * G0SUB2 * P -20 * G0T02 

141 P-205*G0SUB2*P-65*G0SUB2*P-21 *G0T02 

142 P-205*G0SUB2*P-71 *G0SUB2tP-21*G0T02 

143 P -205 * GOSUB 2 * P - 1 68 * GOSUB 2*P-21*G0T02 

144 P-205*G0SUB2*P«189*G0SUB2*P«2i *G0T02 

1 45 P -205 * GOSUB 2 * P -27 * G0SUB2 * P -2 * G0T02 

146 P-62*G0SUB2*P-4*GOSUB2*P-5O*G0SUB2*P-175*G0SUB2*P-64*G0T02 

147 P-205 *G0SUB2* P-203 *G0SUB2*P-9*G0T02 

148 '*• Entrada principal 

149 CLE AR80 * RESTORE * DEF INT A-Q.S-'X.Z* PR I NT80, "MICRO BASIC COMPILE 
R" | T A8 ( 40 ) "NEUD0S2 . 0 

"TAB (25) "BY Zorro /84 

Prograa lines* 1000 a 9999"«F0RPC-1T0300*NEXTPC*PRINT" 

Para inatrucoea, leia Micro Siateaaa"*FORP-lT0300*NEXTP*PRINT 

150 M«0*8-0*PN-0*C-0*Cl-0*Vl-0*L-0* J-0*El-0*Dl-0*DH-0*DN-0 

151 DEF FNA( Y >»Y+< Y >32767 >**65536 

152 INPUT"NUMER0 DE BYTES P/ PROGRAMA (TOP MEM>"|ZI * INPUT"NUMERO 
DE BASIC LINES MAXIMO A COMP ILAR" *0* INPUT"NUM. MAX. DE GOTO 'S*G 

OSUB 'S"»K 

153 DIML1(8>,A(K>,L2(8>,D(25>,E(25>,SM(10>*TS-" « " 

154 MR-0* INPUT"MEMORY OFFSET", I * INPUT"BYTES PARA TEXTO",PA*PB— P 
A-300-I *RR-65536 

133 a -0*t -PEEK ( 16348 /♦236-PEEK * 16349 >«tt 9 — ZI-rPB-MK«163«4 »PftlNT**P 
rocurando la linha >-1000. . *8-FNA( Y) 

156 GOSUB 10 * PR INT3800 , I , * IFI >-1000THEN157ELSE8-FNA( PEEK ( 8 > *256«P 
EEK (FNA(8+1 > > > *G0T0156 

157 PR INT"OK"*PR INT"Entry point *",RR+MS, * INPUT"OK (S/N>",C*«IFCS 
-"N"THENINPUT"NOVO ENTRY POINT < dec >", 1 1 * I-RR+M8-II * IFI < -0THEN15 
7ELSEMS-MS-I *PB-PB-I 

158 PT-PB *MC-MS*M-MS* INPUT"SINGLE PRECISION* A . AO , . . . Ax-1 , . . . A9 , 

. . . ,Z , ZO Z9(X<-10)",IS* INPUT"1-D ARRAY DIMENSION A(0-x>. X> 

-0" ,D0* INPUT"NUMERO DE POSSIVEIS 1-D VAR ARRAYS < A.B , . . .x> .X<-26 
• " ,N0 

159 INPUT"2-D ARRAY S8UARE DIMENSION A(0-x,0-x>. X>-0.",DT* INPUT 



'NUMERO DE 2-D SQUARE ARRAYS (A,B...x>. X< - 26 . " ,NT * INPUT "NUMFRO 
OE VAR I A VE IS STRING ( AS.BS. . . .ZS> < <«26> .",NS* INPUT"STRING-VAR L 
ENGTH. ( < 256 > ." ,SL _ _ 

160 VT--2*26+MS* VF - -4*26» ( 1 ♦ IS >+VT* VA--4«N0«D0^VF * VD*-4«NT«DT»DT 
-2eNT«DT+VA*VS— NS*(SL-*1 >*VD*VN— (SL + 4XVS 

161 CLS*PR INTSTR INGS (64,179), * PR INT 325 , RELATOR 10 »a"*PRINT"N 

uaeros SPV ad I c I ona i a * " , TAB ( 32 > IS," 

Dia de 1-D arraya*",TAB (3£)D0," 

Dia de 2-D arr ays * " , TAB ( 32 >DT ," 

String length*", TAB(32>SL 

162 PR INT"No de var . 1-D i a* " , TAB ( 32>N0, " 

Variaveis 2-D i a* " , TAB ( 32 >NT , " 

Variavcis str ings*",TAB<32>NS," 

Textos. area ft start * " , T AB ( 32 > P A , " ft ",PT 

163 PR INT"5t art of machine code*", TAB ( 32>MC," 

Integer ft single var . *", TAB ( 32) VT , "ft", VF , " 

Start of 1-D ft 2-D ar r ays * " , TAB ( 32 > VA, "A" , VD," 

Start of string stor . *",TAB(32)VS," 

Teaporary stor age*", TAB ( 32) VN 

164 IF65536^VN< -256*»PEEK < 16562 > ♦PEEK ( 16561 > THENPR INT"MEMOR I A RES 
ERVADA OVERLAP BASIC"*END 

165 PRINT3960,"APERTE. . .", * IF INKEYS- ""THEN165EL 5ECLS *P OK El 6916 , 1 
*PR INTSTR INGS ( 64 , 95),*PRINT80,"< ZORRO BASIC COMPILER >", 

166 PRINT*PRINT*PRINT"Subrot i nas * "*PR INT"( " ,M, " > . . " , 

167 C1«M*3*G0SUB83 * XH-D1 * XL-E1 *Cl-M+37 * GOSUB 83 * GOSUB 120 

168 DATA42, 32, 64, 54, 63, 35, 54, 32, 35, 34, 32, 64, 33, 232, 65. 6. 240, 205, 
217,5,245,72.6,0,9,54,0,33,232,65,241 ,216,175,201 

169 F0RI-1T034*READP*G0SUB2*NEXTI 

170 IFNT >0THENG0SUB363ELSEG0SUB372 

171 G0SUB9 

1 72 L-L + l * Ml -FNA (PEEK < 8 > ♦PEEK ( 8+1 > **256 > *L 1 <L > -PEEK ( 8^2 > ♦PEEK < 8+3 
>•256 

173 IFLKL) >9999THENL-L-1 *G0T0201 

174 PR INT8960. "M",Lt (L > ,"<",M, ">..", *L2(L>-M*8-Q^4 

175 C-0*G0SUB3* IFC-2THEN200 

176 IFPC-1330RPC-1340RPC-1360R (PC > 137ANDPC( 1 40 > ORPC-1 420RPC-1 440 
RPC-1480R (PC > 149ANDPC< 176ANDPC< > 160 >0R ( PC > 1 78ANDPC( 189 > OR ( PC > 189 
ANDPC( 202ANDPC< > 193 ) 0RPC-2030RPC-2040RPC-2100RPC-21 1 THEN8 'erro 

177 IFPC-2150R (PC >216ANDPC( 221 > OR (PC >228ANDPC( 251 > THFN8 'erro 

178 IFPC- 1 40THENGOSUB3ELSEIFPC-160THENPR INT" Out l", *G0SUB374*G0S 
UB 379* GOT 01 95 'Out 

179 IFPC >64ANDPC(91ANDPN-378-8~l *PRINT" Let X*", *G0SUB213*G0T0195 
'Integer let 

180 'Siaples Prccisao Let 

181 IFPC >64AN0PC<91 ANDPN< >37ANDPN< >368-8-1 * PR INT" Let • *"» * GOSUB 1 
2 * GOSUB 3* G0SUB3 * IF (PC-49 ANDPN-207 > OR ( PC-48ANDPN-205 > G0SUB309 * GOT 
0195ELSE8-8-2*G0SUB3*IFPC( >213THEN8ELSEG0SUB28*G0SUB20*G0SUB147* 
GOTO 195 

182 IFPC >64ANDPC<91ANDPN«36Q-8-i * PR INT" Let**", *G0SUB314*G0T0195 

183* IFPC-178THENPR INT" Pr int *"» *G0SUB232*G0T0195ELSEIFPC-176THEN 

PRINT" Def * " | * GOSUB 381 * GOSUB 379* GOTO 195 'print, def 

184 IFPC- 141 THENPR INT" Goto*", * G0SUB303 * GOTO 195ELSE IFPC- 193THENP 

RINT" Usr *", *G0SUB385*G0SUB379*G0T0195 'goto, usr 

1B5 IFPC-143PR INT" If *", *G0SUB263*G0T0I95 ' i f . . t hen . .el se 

186 IFPC-145PR INT" Goaub * " , *G0SUB305*G0T0195 'gosub 

187 IFPC-1 46PR INT" Ret *", *G0SUB307*G0T0195 'return 

188 IFPC-132THENPRINT" Cl s * " , *P«205* G0SUB2*P-201 *G0SUB2 *P«i *GOSU 

0 2* G0SU8 3 * IFPC ( >58ANDC( >2THEN8ELSE 195 'els 

189 IFPC-1 37PR INT" Input «", *G0SUB254 *G0SUB379*G0T0195 'Input 

190 IFPC-129PR INT" For *", *G0SUB332*G0T0195 'for 

191 IFPC-135PR INT" Next *", * GOSUB 342* GOTO 195 'next 

192 IFPC-1 300RPC- 131 PR INT" Set ft Rea*", *G0SUB344»G0T0195 'set ft 

reset 

193 IFPC-177PR INT" Poke*"* *G0SUB357*G0T0195 'poke 

194 IFPC-128PR INT" End*", *P-205*G0SUB2*P-157*G0SUB2*P-10*G0SUB2* 
P-201 * GOSUB 2* GOSUB 3 'end 

195 Cl-PEEK (8-1 > *IFFO( >0THEN196ELSEIFCi-58THENPRINTT%, *G0T0175EL 
SEIFC1-149THENPR INT" Else", *G0T0175ELSE20O 

196 IFC1-58THENPR INTTS, *G0T0175ELSEIFCi-149THENCl -M*G0SUB79 *PR IN 
T" Else", * I-SM(FO) *FO-FO-I * IFPEEK ( I >-40THENI-I+3*G0T0197ELSEI-I^ 

1 * GOSUB 198* IFPEEK ( I +2 ) -2500RPEEK ( I>2)-242THENI-I^3*G0T0197ELSE17 
5ELSEIFCK >OTHENPRINT" Then*", *8-8-1 *G0T0175ELSE199 

197 GOSUB 198* GOTO 175 

198 P0KEI,E1*P0KEIM,D1*RETURN 

199 IFFO< >0THENC1-M«G0SU879*F0RV1-1T0F0* I-SM( Vi > * IFPEEK ( I > -40THE 
NI-I^3*G0SUB198*NEXTV1ELSEI-I+1 * GOSUB 198* IFPEEK ( I+2>-2500RPEEK ( I 
♦2>-242THENI-I+3*60SUB 198*NEXTV1ELSENEXTV1 'Ajuste de Else 

200 F0-0*8-Ml *PR INT *G0T0171 'proxiaa linha 

201 PRINT *G0SUB9 *PR INT8960, "A JUST ANDO JUMP ADDRESSES . . .",*IFK 
-0G0T0206 

202 FOR I-1T0K iDN-PEEK ( A( I > >+256«PEEK ( A( I > ♦ 1 > *DH-0 

203 FOR J-1T0L* IFDN-Li ( J>THENDH«L2( J> *PRINTL1 ( J> , 

204 NEXTJ*C1-DH*G0SUB83*P0KEA( I > ,E1 *POKEA( I>M,D1*NEXTI 

205 'Final izacao 

206 PRINT *DEFUSR0-MC*R1-RR*MC*R2-RR + 1+M*R3-RR+VN*R4-RR*PB 'prepa 
ra DefusrO p/ execucao 

207 PRINT*PRINT"Iniclo da area (ta« var i ave i s . . . ",TAB ( 32>R3*PR INT 
"Iniclo do prograaa. ..",TAB(32)R1*PRINT"F ia do prograaa. • .",TAB( 
32>R2*PRINT"Fia da area de textos. TAB (32>R4 

208 IFM>PTTHENPRINT"ERRO* PROGRAMA E TEXTO OVERLAP" 

209 PRINT"(S> TO SAVE OR (R> TO RUN MACHINE CODE " 

210 A%- INKEYS * IFAS-""THEN210ELSEIFAS»"R"THENCLS*POKE 16916, 0* X-US 
R(0> IG0T0209 

211 IFAS( >"S"THEN209ELSEPR INT *PR INT"Par a gravar, execute ea Disk 
-Basic aodo direto* 

CMD 'DUMP , F i 1 enaae , ",R 1 ,".",R4,",",R1*PRINT * PR INT" In ic io da area 
de aeaoria reservada para as variaveis -",R3," 

(TrsDos Basic* Meaory Size ou NewDos Basic* Hiaea>"*END 

212 'Operacoes coa inteiros 

213 G0SUB3*G0SUB5*G0SUB6*V1-PC-65*G0SUB3* IFPC( >213THEN8 

214 GOSUB 3* IF (PC-49ANDPN-207 >0R ( PC-48ANDPN-205) THEN227 

215 I FPC-2 1 6G0SUB 3 * GOSUB 28 * GOSUB 1 46 * P “ 205 * GOSUB 2 * P -6 1 * GOSUB 2 * P- 1 
1 *G0SUB2* IFPC( >41THEN8EJ.SEG0SUB3*G0T01 19 'int 

216 IFPC< >229THEN218ELSEV3-V1 * GOSUB 3* GOSUB 3* GOSUB 77 *IFC1— 1THENV 
1 -PC-65 *G0SUB5*G0SUB6*G0SUB3* GOSUB 118* P-1 26 *G0SUB2ELSEP-58* GOSUB 

2 *P -El *G0SUB2*P-Dl * GOSUB 2 

217 P-38*G0SU82*P-0*G0SUB2*P-111*G0SUB2*V1-V3*G0SUB119*G0T03 'pe 

218 IFPC-198THENV3-V1 * G0SUB344* P-42 *G0SUB2* P-33 *G0SUB2*P -65 *G0SU 
B2* V1-V3*G0T01 19ELSEIFPC-245ANDPN-40THEN400 'point 



219 V2-V1 *8-8 - 1 * GOSUB 3 * IFPC=?06ANDPN>47ANDPN(58G0SUB77*G0SUBi 12* 
G0T022 1 ELSE IFPC -206 THFNE t -0 * D 1 -0 * GOSUB 1 1 2 * G0T022 1 

220 GOSUB 77 : 1 FC 1 ( > - 1 GOSUB 1 1 2ELSE VI -PC-65 * G0SUB5 * G0SUB6 * GOSUB 1 1 8 * 

GOSUB n 

221 IFPC-580RC-2V1-V2*G0T01 19 

222 IFPC-20AANDPN >47ANDPN( 58SG-205ELSESG-PC * G0SUB3 

223 G0SUB225* IFSG-205G0SUB 1 13ELSEG0SUB 121 

224 G0T0221 

225 GOSUB 7 7 * IFC1 0-1 G0T01 1 1 ELSEV1 -PC-65 * G0SUB5 * G0SUB6 * P-237 * GOSU 
B2*P-V1 * U0SUB2 * 00SU884 * G0SUB2 * P— P 1 * OOUUB2* (10TO3 

226 'Tr ansf erenc i a de variaveis inteiras, basic X usr 

227 IFPC-49ANDPN-207CM-1ELSECM-0 

228 8=8* 1 * GOSUB 3* MF - VN * GOSUB 1 00 * Q-8^ 1 * GOSUB 1 1 2 * P-205 * G0SU82 * P - 1 3 

* GOSU02 >P -38 > GOSUB 2 

229 IFCM-0P-26*G0SUB2*P-1 1 1 *G0SUB2*P-19*G0SUB2*P-26*G0SUB2*P-103 
*G0SUB2*G0T0i 19 'Basic p/ Z80 

230 GOSUB 1 1 8*P-125*G0SUB2*P-18*G0SUB2*P-19*G0SUB2*P»124 *G0SUB2*P 
- 18 * GOT 02 'Z80 p/ Basic 

231 'Print 

232 GOSUB 3* IFPC-580RC-2P1-13*G0T0251 

233 IFPC( )64ANDPC< >96THEN244ELSEG0SUB3 

234 'Pr inta 

235 I FPC( 588-8-1 *G0SUB240* Cl -Cl ♦15360* G0SUB3 * GOSUB 79 * GOSUB 1 12ELS 
E V 1 -PC-65 * GOSUB 5* G0SUB6 * GOSUB 3 * G0SUB3 * GOSUB 1 1 8 *01-60 * E 1 -0 * GOSUB 1 
1 1 * GOSUB 113 

236 I FPC( >247P-34 *G0SUB2*P-32*G0SUB2*P-64 *G0SUB2*G0T0244ELSEG0SU 
B3*IFPC( ) 40 T HE NOE LSE GOSUB 2 40 * GOSUB 116 

237 G0SUB3* IFPC-2Q5G0SUB3* IFPC< >247THEN8ELSEP-35*G0SUB2*G0T0236 

238 IFPC-59G0SUB3 

239 IFPC < >58ANDC< > 2THEN8ELSERE TURN 

240 C»-"" 

241 G0SUB3* IFPC< >41ANDPC< >44THENCS«C*^CHRS(PC > * IFPC( 480RPC >57THE 
N8ELSEG0T0241 

242 Cl-VAL(CS) (RETURN 

243 'Expressao Staples Precisao ft Print String 

244 IFPC >64ANDPC(91ANDPN-368-8M *Vl«PC-65*Ci-VS^Vla(SLM > *G0SUB2 

52*G0T0247 

245 IFPC-34THENG0SUB390*G0T0247 

246 8-8-1 (G0SUB28* GOSUB 146* P-205 *G0SUB2* P-189 (G0SUB2 * P-15 (G0SUB2 
: P -62 * GOSUB 2 * P - 3 * GOSUB 2 * P - 1 8 * GOSUB 2 * GOSUB 145 'print staples prec 
i sao 

247 IFPC-44THEN8 

248 IFPC-59G0SUB3* IFPC( >58ANDC( >2THEN244ELSERETURN 

249 I FP C -580RC-2P 1-13*00 T0251 

250 G0T08 

251 P-62*G0SUB2*P-P1 *G0SUB2*P-205*G0SUB2*P-5B*G0SUB2*P-3*G0T02 ' 
scrol 1 

252 G0SUB83*G0SUB112*G0SUB145*G0SUB3* IFPC-34G0T03ELSERETURN 'pr i 
nt str *ng 

253 'INPUT 

254 GOSUB 3* IFPC-34THENG0SUB390* IFPC< >59THEN8ELSE254ELSEG0SUB5 

255 P -205 * GOSUB 2 * P -XL * G0SUB2* P -XH * GOSUB 2 * I FPN< > 36THEN259 

256 V1*PC-65*C1-VS*V1 • ( SL+ 1 > * GOSUB 83* GOSUB 1 1 1 

257 P - 1 26 * G0SUB2 * P » 1 83 * G0SUB2 * P -40 * G0SUB2 * P-5 * GOSUB 2 * P - 18 * G0SUB2 
: P-35 * G0SUB2 * P • 1 9 * G0SUB2 *P-?4 * G0SUB2 * P *247 * G0SUB2 * P-62 * G0SUB2 *P- 
3 * GOSUB 2 * P - 1 8 * GOSUB 2 

258 8-8^i*G0T03 

259 P -205 * G0SUB2 * P - 1 08 * GOSUB 2 * P » 1 4 * G0SUB2 

260 IFPN-37P-205*G0SUB2*P-127 *G0SUB2*P-10*G0SUB2* Vi«PC-65*G0SUB8 
4*E1-P*D1-P1 * GOSUB 112 * P-237 * G0SUB2 * P-75 * GOSUB 2 * P-33 * G0SUB2 *P-65 * 
GOSUB 2 * P - 1 1 3 * GOSUB 2 * P -35 * GOSUB 2 * P - 1 1 2 * GOSUB 2 * GOSUB 3 * G0T03 

261 8-8 1 *CF-1 *GOSU8i2*CF-0*P-58*GOSUB2*P-175*GOSUB2*P-64iGOSUB2 

* P-222 *G0SUB2*P -4 *00SUB2* GOSUB 122 * P-205 *G0SUB2* P-204 *G0SUB2* P-10 

* G0SUB2 * G0SUB20 * GOSUB 1 47 * G0T03 

262 'Integer If-Then Rotina 

263 G0SUB3* IFPN< >37THEN279ELSEG0SUB6* VI -PC-65*G0SUB 1 18*G0SIJB 1 15* 
GOSUB 3 

264 IFPC-2 12ANDPN-21 30RPC-21 3ANDPN-212U1- i *8-8M *G0T0270 

265 I FPC-21 4ANDPN-21 30RPC-21 3ANDPN-21 4U 1 -2 * 8-0^ 1 * G0T0270 

266 IFPL-21 2ANDPN-21 40RPC-21 4ANDPN»212Ul-3*0»8* 1 *G0T0270 

267 IFPC-212UI-5 

268 IFPC-21 4UI-4 

269 IFPC-21 3U1 -6 

270 GOSiJB 1 * I FPC ( 580RPC-206G0SUB 77 * GOSUB 1 12ELSEG0SUB5 * GOSUB 6 * VI -P 
C -65* GOSUB 11 8* GOSUB 3 

271 IF ( PC-202ANDPN< 5BANDFN *47 >ORPL- l 41 THENGOSUB 3* PR INT' Then**", 
ELSE IFPC-202ANDPN- 1 4 1 THENGOSUB3*GOSUB3ELSEIFPC-202THENGOSUB3*GOT 

0275ELSE8 

272 GOSUB 77* GOSUB 7 

273 GOSUB274* 1-0*G0T0289 

274 P-205*G0SllB2*P-5 7 *GOSUB2*P-10*G0T02 

275 G0SU8274 

276 FQ-FO* 1 *SM(FO>-M* IFWl < 4THENU1 «U1 ♦3ELSEU1 -Ul-3 

277 I -1 * GOT 028V 

278 'Single Pieciaion If Then rotina 
2/9 8-8 1 * GOSUB 28* GOSUB 128 

280 IFPC-2 12ANDPM-21 30RPC-2 1 3ANDPN-21 2U1 • 1 * 8“8+ 1 * G0TO286 

281 I FPC-21 4ANDPN-2 1 30RPC-21 3ANDPN-2 1 4U 1 -2 * 8-8^ 1 * G0T0286 
202 1 FPC-2 1 2ANDPN-2 1 40RPC-2 1 4ANDPN-21 2U1 -3* 8»8* 1 *G0T0286 

283 IFPC-212U1-5 

284 IFPC— 21 4111 -4 

285 IFPC-21 3U1 -6 

GOSUB 28* GOSUB 129* GOSUB 136 

287 I F ( PC-202AMI)PN< 50ANDPN >47 >0RPC-141 THC NGOSUB 3 * PR INT" Then**", 
EL SE IFPC. 202 ANDPN- 141 THENG0SUB3 *G05UB3ELSEIFPC-202THENG0SUB3 *GOT 
0276FL3E8 

288 I *0* GOSIJB 7 7 * GOSUB 7 

289 D-D 1* E-El *0NU1G0T0290,291 ,272,294,293,295 

290 GOSUB 2?6 * GO T «>2 V 9 

291 GOSUB 296 *00T 0297 

292 GOT 0298 

293 r-40*G0SUB2*P-3*n0SUG2*G0T029V 

294 F=40*G0SUB?*P-3*G05UB2*G0T0297 

295 G0T0296 

296 P -202 *G0T030l 
2S7 P -2 42* GOT 0301 

298 P-1 94* GOT 0301 

299 r-250*G0T030l 

300 I -0*P® 195*00T030l 

301 GOSUB 2 * I F I = 1 THE NP -0 * GOSUB 2 * G0T02EL SEK -K ♦ 1 * A ( K > -M * P -E * GOSUB 2 * 
P«D*G0T02 



302 'Goto 

303 GOSUB 3 * GOSUB 77 * GOSUB 7 * D-D l * E-E 1 * G0T0300 

304 'Goaub 

305 GOSUB 3 * GOSUB 77* GOSUB 7 iD-Dl *E-E1 *Cl-M+7 «GOSUB83*GOSUB 1 1 1 *GOSU 
B 126* GOT 0300 

306 'Return 

307 G0SUB123*P»233*G0T02 

308 'Tranaferenc i a Var. Siaplea Precisao 

309 IFPC-49ANDPN-207THENCM- 1ELSECM-0 

310 GOSUB 3 * GOSUB 3 * MF - VN * GOSUB 1 00 * GOSUB 3 * GOSUB 1 1 2 * P -205 * GOSUB 2*P- 
13*G0SUB2*P-38*G0SUB2 

311 I FCM-0G0SU8 1 1 5 * GOSUB 1 27 * GOSUB 20 * GOTO 1 47 

312 GOSUB 1 26 * G0SUB20 * GOSUB 1 27 * GOSUB 123 * GOTOl 47 

313 'Operacao coa Str Inga 

314 GOSUB 3 * VI -PC -65 * MF-VS+V1 • ( SL* 1 > 

315 G0SUB3* IFPC( >36THEN8 

316 G0SUB3*IFPC< >213THEN8 

317 GOSUB 3* IFPC-247THEN322ELSEIFPC >64ANDPC( 91 ANDPN-36THEN394ELSE 
IFPC< >34THEN8 

318 PC-PEEK ( 8 > *8-8 ♦i*FP-l* GOSUB 100 *FP-0 

319 G0SUB3* IFPC-34THEN3ELSERETURN 

321 'Stringa coa ChrS 

322 Cl-MF *G0SUB83* GOSUB 1 12 

323 G0SUB3* IFPC( >40THEN8ELSECS-"" 

324 GOSUB 3* IFPC > 64ANDP C < 91 THENV1 -PC-65 *G0SUB6* GOSUB 3* IFPC< >41 THE 
N8ELSEP -58 * G0SUB2 * G0SUB84 1 G0SUB2 * P -P 1 * GOSUB 2 * P - 1 1 9 * GOSUB 2 * G0T032 
9 

325 IF ( PC ( 480RPC >57 > ANDPC < >41THEN8 

326 IFPC( >41THENCS-C1^CHRS(PC ) * G0SUB3* G0T0325 

32 7 Cl-VAL (CS > * GOSUB 116 

329 G0SU63* IFPC-205G0SUB3* IFPC< >247THeW8EL SEP-35 *OOSUB2 « G0T0323 

330 IFPC-580RC-2THENP»35*G0SUB2*C 1-3* GOTOl 16ELSE8 

331 'For Rotina 

332 C1-M+7*G0SUBB3*G0SU83*G0SUB5*G0SUB6* V1-PC-65*G0SUB84 *G0SUB3* 
D(V1>-D1»E(V1)-E1*IFPC( >213THEN8 

333 GOSUB 3 * IFPC(650RPC-206G0SU877 * Jl-O* ID-Dl * I E-El *ELSEJl-i * V2-P 
C-65 * G0SUB6 * Cl -VT + V2a2 * GOSUB 83 * ID-Dl * IE-E1 * 60SUB3 

334 IFPC O 1 89THEN8 

335 GOSUB 3 * IFPC( 650RPC-206G0SUB77 * J2-0*FD-D1 *FE»E1ELSE J2-1 IV3-PC 
-65*G0SUB6*C1-VT^V3«2*G0SUBB3*FD-D1 *FE-E1 *8-8M 

336 IF J2-0THENP-33ELSEP-42 

337 GOSUB 2 * P -FE * GOSUB 2 *P -FD * GOSUB 2 * GOSUB 124 

338 IF J1-0THENE1-IE *01 -ID* GOSUB 112 

339 IFJ1-1THENP-42*G0SUB2*P-IE *G0SUB2*P-ID*G0SUB2 

340 G0SUB119* IFPEEK (8-1 X >58ANDPEEK (8- 1 > ( >0THEN8EL SERE TURN 

341 'Next Rotina 

342 GOSUB 3 * GOSUB 5 * GOSUB 6* V 1-PC-6S « GOSUB 1 1 8 * GOSUB 125 * GOSUB 1 26 * GOS 
UB 1 24 * GOSUB 121* GOSUB 123* P-35* G0SUB2»P- 194 *G0SUB2*P-E( VI >*G0SUB2* 
P-D(V1 ) * G0SUB2 * GOSUB 1 23 * G0T03 

343 'Rotinaa Point, Set A Reaet 

344 IFPC-130THENU-1ELSEIFPC-131THENU-12BELSEIFPC-1 98THENU-0 

345 MA-M 

346 G0SU83* IFPC< >40THEN8ELSEG0SUB3 *G0SUB77 * IFC1— t G0SUB5 *G0SUB6* 
VI -PC-65 *G0SUB84*D2-P1*E2-P«C2-1ELSEE2-E1 *C2-0*IFPC< >44THENB 

347 IFC2-1G0SUB3* IFPC< >44THEN8 

348 GOSUB 3 * GOSUB 77 * IFC1 — 1G0SUB5*G0SUB6* V1-PC~65*G0SUB84 *D3-P1 *E 
3-P *C3-1ELSEE3-E1 *C3-0*IFPC( >41THEN8 

349 IFC3-1G0SUB3* IFPC< >41THENB 

350 G0SUB3* IFPC< >58ANDC< >2THEN8 

351 Cl -MA^18^C2+C3*G0SUB83*G0SUB 1 12*G0SUB 124 lEl -126*01-7 *GOSUB 11 
2 * P -62 * GOSUB 2 l P -U * GOSUB 2 * P -245 * GOSUB 2 

352 IFC2- 1 THENP-58 *G0SUB2 *P-E2 * G0SUB2 * P-D2 *G0SUB2 *ELSEP«62 * GOSUB 
2*P-E2*G0SUB? 

353 P«245*G0SUB2 

354 IFC3-1 THENP-58 *G0SUB2*P-E3* G0SUB2 * P-D3*G0SUB2ELSEP-62*G0SUB2 
*P-E3*G0SUB2 

355 El- 80*01-1 * GOTO 120 

356 'Rot ina Poke 

357 GOSUB 3 * GOSUB 77*IFC1»-1 THENG0SUB5 * G0SUB6 * V 1 -PC -65 * GOSUB 118*00 
SUB3ELSEG0SUB 1 12 

358 IFPC( >44THEN8 

359 GOSUB 3 (GOSUB 77 * IFC1--1 GOSUB 5 * GOSUB 6 * VI -PC-65 *G0SUB84 * E 1 -P *D1 
-PI *P-58*G0SUB2*P-E1 *G0SUB2*P-D1 *G0SUB2*G0SU83ELSEP-62*G0SUB2*P« 
El * GOSUB 2 

360 IFPC( >5BANDC< >2THENB 

361 P-1 19*G0T02 

362 '2-D code atore 

363 PRINT*PRINT*PRINT"Rot ina p/araazenar aatrizea 2-D*" *PR INT *Ci 
- VD * GOSUB 83 * GOSUB 1 1 2 

364 Cl-VD + 4aNT**DTaDTlG0SUBB3*P-221*G0SUB2*G0SUBl 12 *C1 «4«DT * GOSIJB 
79* GOSUB ill 

365 Ct-NT«DT*G0SUB79*P-i *G0SUB2*P-E1 *G0SUB2*P-D1 *G0SUB2 

366 P-221 *G0SUB2 *P-1 17 (G0SUB2 *P-0* G0SUB2 *P-221 *G0SUB2 *P -35* GOSUB 
2 * P -22 1 * G0SUB2 * P - 1 1 6 * GOSUB 2 * P -0 * GOSUB 2 * P-22 1 * G0SUB2 * P -35 * GOSUB 2 * 
GOSUB 1 13*P»13*G0SUB2 

370 Cl-M-12* G0SUB8 3 * P - 1 94 * GOSUB 2 * P »E 1 * GOSUB 2 * P -0 1 *G0SUB2 

371 P-5* G0SUB2 *P-1 4 *G0SU82 *P»255 *G0SUB2*C1 -M- 1 8*G0SUB83 *P-242 *G0 
SUB 2 * P -E 1 * GOSUB 2 * P -Dl * GOSUB 2 

372 PR I NT 3840 , "Coap 1 1 acao pr i nc i pa I *" (RETURN 

373 'Rotina Out 

374 GOSUB 3 *GOSUB 77 * IFC1--1 THEN8EL5EP0-C1 

375 IFP0(00RP0>255THEN8 

376 IFPC< >44THEN8 

377 GOSUB 3 * GOSUB 77 l I FC 1 - - 1 THENGOSUB 5 * GOSUB 6 * VI -PC - 65 * G0SUB84 *E1- 
P * D 1 -P 1 * P -58 * GOSUB 2* P -E 1 * G0SU82 * P -D 1 * GOSUB 2 * GOSUB 3EL SEP -62 * GOSUB 
2 *P -El IG0SUB2 

378 P-21 1 *GOSUB2*P-P0*G0T02 

379 IFPC( >58ANDC ( >2THEN8ELSERETURN 

380 'DefUar 

381 GOSUB 3* IFPC-1 93ANDPN-213THEN8-8+ 1ELSE8 

382 GOSUB 3 * GOSUB 77 * IFC 1 — 1 THENGOSUB 5 * GOSUB 6 * VI -PC-65 * GOSUB 118*00 
SUB3ELSEG0SUB 112 

383 P-34*G0SUB2*P-142*G0SUB2*P-64*G0T02 

384 'Rotina Uar 

385 G0SUB3* IFPC< >40THEN8 

386 GOSUB3*GOSUB77*IFC1— 1 THENG0SUB5*G0SUB6* V1-PC-65*G0SUBB4 *E1- 
P *D1-P 1 * P-58 *G0SUB2 *P-E1 »G0SUB2*P-D1 *G0SUB2*G0SUB3ELSEP-62*G0SUB 
2*P-E1 * GOSUB 2 

387 IFPC< >410RC1 < 00RC1 >25STHEN8ELSEG0SUB3 

388 P -205 * GOSUB 2 * P -PEEK ( 1 6526 > * GOSUB 2 * P -PEEK ( 1 6527 > * GOTO? 

389 'Araazenaaento de textoa 
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QUASAR IV: UMA AVENTURA COMPILADA 



390 Cl-PBiPRINT" < " ,PB , " >" y i IFPB >-300THENPR INT"TEXTO OVERFLOWED 
OTOB 

392 00SUB4 i IFPC< >34THENPRINTCHR5<PC) y iPOKEPB ,PCxPB-PB*l «G0T0392 

393 P0KEPB,3xPB-PBMxG0T0252 

394 Cl-MF i G0SU883 > GOSUB 1 1 1 » VI -PC-65 * C 1 - VS+V1 • ( SL+1 > * G0SUB83 * GOSU 
8112 

397 PMiGOSUB2iP-SLM!GOSU82iP«OiGOSUB2rP«237iGOSUB2iP-176iGOSUB 
2IQ-Q+1 * GOSUB 3* GO TO 37 9 

399 'V«l 

400 •■•♦1 IG0SUB3* IFPC< 650RPC >900RPN< >36THEN8ELSEV2-PC-65iCl-VS*< 
SLM ) • V2 * GOSUB 3 * GOSUB 3 

401 IFPC< >41THEN8ELSEG0SUB83*GOSUBU2iP-2O5«GOSUB2«P-9O«GOSUB2iP 
-30 > GOSUB 2 1 G-Q ♦ 1 * C 1 - VT ♦ 2* V 1 * G0SUB83 * GOSUB 1 1 2 « P - 1 1 3 * GOSUB 2 i P -35 > G 
0SUB2iP-114«G0T02 

300 Coap i 1 *r /Bat 



QUASI/USR 

Este 6 o primeiro m6dulo Z80 a ser compilado para a for- 
ma^So de Quasar IV. A listagem 2 apresenta o programa jd es- 
crito na forma que o compilador gosta. Vamos chamd-lo de 
QuasI/CMP. 

Para evitar confus£o, deve-se dar os seguintes parametros 
de entrada para a compilado na ordem em que sSo solicitados: 
5000, 150, 100, 5500 (offset para QuasII/USR, 100 (texto), 
S (deve ser 54636), 1 (SPVs), 0, 0, 0, 0, 0 (SVs), 0. 

£ IMPORT ANTE n£o errar nem mudar estes dados, pois o 
Entry-Point resultante 6 utilizado na chamada USR de Quasar 
IV. E se mudar aqui, vai ter que mudar 1£, e isso 6 vdlido para o 
Quasi e o QuasII. 

Nlo se pode esquecer de SALVAR o resultado, dando urn 
DUMP com os parametros fomecidos pelo compilador e com o 
FILENAME da chamada de Quasar IV, que e QUASI/USR. 

Se at£ aqui foi tudo bem, 6timo. Caso contrdrio, 6 bom es- 
friar um pouco a cabe$a e retroceder a leitura. 



Listagem 2 - Quasi /CMP 



1000 'QUASI/CMP FOR COMPILER •*■«*••• Zorro/84 ••«••••»• 

1 003 Q0T01440 

1010 'MOVE 16 PONTOS 

1015 A-EXxBX-INT <B > * RESET ( AX , BX ) i AX»AX*5x IF AX > 126THEN1020ELSESET 
( AX , BX ) * GOTO 1025 
1020 AX-XXxB-YX 

1025 BX-INT(P) « EX- 1 NT (D)xRESET(BX.EX) xBX-BX+5 
1030 IFBX > 126THEN1035ELSESET <BX,EX)xP-BXx GOTO 1 040 
1035 P-XXxD-YX 

1040 RESET (CX,DX) «CX-CX*2*DX-0X-2i IFCX > 1 26THEN1050ELSE IFDX< 1THEN 
1050 

1045 SET < CX , DX > x GOTO 1055 
1050 CX-XX * DX-YX 

1055 BX«INT<E)*RESET<BX,FX) xFX-FX-3* IFFX< 1 THEN 1060ELSE SET ( BX , FX > 

t GOTO 1065 

1060 FX-YXlE-XX 

1065 BX-INT(O) lEX-INT(H) iRESET(BX.EX) iEX-EX-3 
1070 IFEX< 1 THEN1075ELSESET < BX , EX ) xH*EXx GOTOl 080 
1075 G-XXxH-YX 

1080 RESET < GX . HX ) xGX«GX-2*HX«HX-2* IFGX< 1THEN1090ELSE IFHX< 1 THEN10 
90 

1085 SET ( GX , HX > i GO TO 1095 
1090 GX-XXiHX-YX 

1095 BX-INT<J> * RESET ( IX , BX ) x IX-IX-5* IF I X< 1 THEN1 100ELSESET < IX , BX ) 

i GOTOl 105 

1100 IX-XX* J-YX 

1105 BX-INT(G) * EX- I NT (R)xRESET(BX,EX)xBX«BX-5 
1110 IFBX< 1 THEN1 1 15ELSESET ( BX , EX ) xQ»8X x GOTOl 120 
1115 0-XXiR-YX 

1120 RESET (XX, LX) xKX-KX-2*LX«LX*2* IFKX< 1THEN1 1 30ELSEIFLX >46THEM1 
130 

1125 SET < XX ,LX ) * GOTOl 1 35 
1130 KX-XX*LX-YX 

1135 BX-INT(M) * RESET ( BX , NX ) t NX-NX>3x IFNX >46THEN1 140ELSESET (BX , NX 
) * GOTOl 1 45 
1140 NX-YXiM-XX 

1145 BX-INT<U)«EX-INT(2> « RESET ( BX ,EX) « EX-EX *-3 
1150 IFEX146THEN1 155ELSESET ( BX , EX > * Z-EX * GOTOl 160 
1155 W-XX * Z-YX 

1160 SET<XX,YX>«RESET(OX,PX> xOX-OX«-2 xPX«PX*2x IFOX > 126THEN1 170ELS 

EIFPXM6THEN1170 

1165 SET (OX , PX ) (GOTOl 175 

1170 OX-XXiPX-YX 

1175 RESET <GX,RX> x QX-GX+4 xRX«RX-l x IFGX ) 126THEN1 1 85ELSEIFRX< 1 THEN 
1185 

1180 SET < OX , RX ) (GOTOl 190 
1185 OX-XXiRX-YX 

1190 RESET (SX, TX) l SX-SX-4 1 TX-TX-1 » IFSX< 1 THEN1200ELSE IFTX< 1 THEN 12 
00 

1195 SET( SX, TX ) (GOTO 1205 
1200 SX-XXlTX-YX 

1205 RESET ( UX , VX ) tUX-UX-4 x VX-VX«-1 * I FUX < 1 THEN1215ELSEIFVX >46THEN1 
215 



1210 SET(UX.VX) IG0T01220 
1215 UX-XXxVX-YX 

1220 EX-INT ( A ) xRESET < UX. ZX ) * UX-UX+4 x ZX-ZX+1 x IFUX > 126THEN1230ELSE 

IFZX)46THEN1230 

1225 SET (UX , ZX ) xRETURN 

1230 UX-XX«ZX-YX*RETURN 

1235 'KEYBOARD MOVE 

1240 JX-PEEK< 14368) «IFJX-16THEN1250ELSEIFJX«64THEN1255 

1245 JX-PEEK < 14344 ) x IF JX-4 THEN! 260ELSE IF JX-1 THEN 1265EL SERE TURN 

1250 XX-XXM x !FXX< 127THEN1245ELSEXX-126*G0T01245 

1255 XX-XX-1* IFXX>-1THEN1245ELSEXX-1«G0T01245 

1260 YX-YXMHFYX<47THEN1270ELSEYX«46*RETURN 

1265 YX-YX-1 : IFYX)-1THEN1270ELSEYX-1 xRETURN 

1270 RETURN 

1273 'RANDOM MOVE 

1280 IFEX< >0THEN1290ELSEEX-INT < 10»RND(0) -4.5) 

1285 IFMX ( >0THEN1295ELSEMX«INT ( 10»RND< 0)-4. 3 ) xRETURN 
1 290 IFEX >OTHEN 1 300ELSE IFEX < 0TMEN1 305 
1295 IFMX >0THEN1310ELSEG0T01315 

1300 XX-XX+i xEX-EX-i * IFXX< 127THEN1285ELSEXX-126*G0T01285 
1305 XX-XX-1 xEX-EX* 1 x IFXX>-1THEN1285ELSEXX-1 *G0T01285 
1310 YX-YX + i xMX-MX-i * IFYX< 4 7 THEN 1 270ELSEYX-46 xRETURN 
1315 YX-YX-1 sMX-MX^l * IFYX >-l THEN1270ELSEYX-1 I RE TURN 
1320 'VISOR 

1325 PRINT9412,CHRt< 156 ) y *PR INT9540 , CHRS ( 180)y 

1330 PR INT8546 , CHR% ( 184) y x PR I NT 34 1 8 , CHRK 172) y xRETURN 

1335 'TESTA CENTRO 

1340 IFXX >69THEN1 355ELSEIFXX<56THEN1 355 
1345 IF YX >26THEN1 355ELSEIFYX< 19THEN1355 
1350 C*OsRETURN 

1355 C-CM x IFC ) 10THEN1 365ELSERETURN 

1360 'IMPACTO 

1365 C-OiCO-CO+1 

1370 GOSUB 1480 

1375 SET ( 62 , 22 ) 

1380 FOR JX-1 T 022 *KX-INT < 62- < 2« JX > ) * LX- 1 NT < 2» JX+62 ) xMX-22- JXxNX-2 
2*JX 

1385 FORBX-KXTOLXiSET <BX,MX> *SET(BX,NX) xNEXTBX 

1390 FORB^-MXTONX*SET (KX,BX>xSET(LX,BX> xKX-KXM *LX«LX- 1 *SET<KX,B 
X) xSET (LX,BX) sKX-KX-1 xLX«LX*l xNEXTBX 
1 395 GOSUB 1 485 x GOSUB 1 0 1 5 * GOSUB 1 480 x NEXT JX 
1 400 GOSUB 1 425 x CLS x GOSUB 1 425 x CLS x GOSUB 1 425 
1405 IFCO< 6THEN1 410ELSERETURN 

1410 PR INT3473 , "< » IMPACTO * )", xPR INT3965 , "TELAS* " y 5-C0y xpR I NTS l 
010, "TIMEX", TO," ", 

1415 FOR JX- 1 T051 2 xBX- INT < 959&RND (0 ) MPRINT3BX, CHRK 128 ) , xNEXT JX 
1 420 CL S x GOSUB 1 485 x GOSUB 1 470 x RETURN 

1425 FOR JX-0T01023*PR INTBJX,CHR%( 191 ) , xNEXT JX* RE TURN 
1430 IX-0:IX-1«I* END 
1435 'MAIN LOOP 

1440 CLS x XX-62 1 YX-22 x T0-300 1 C-0 x CO-O x GOSUB 1 470 

1445 AX-XX* CX-XX x DX-YX XFX»YXxGX«XX*HX«YXx IX-XX>KX-XXxLX-YXxNX-YX 
x OX-XX xPX-YXxQX-XXxRX-YX xSX-XX * TX-YXxUX-XX * VX-YX xUX-XXx ZX-YXxEX- 
OxMX-OsB = YX*E-XX*M-XXxJ-YX*P-XX^(XX/2 ) iD-YX xG-XX xH-YX/2* B-XX/?sR 
-YXxU«XXxZ-YX*<YX/2> 

1 450 FOR JX- 1 T07 x GOSUB 1 325 x GOSUB 1 01 5 x SET < XX . YX ) x NE XT JX x RESE T < XX , Y 
X) 

1455 GOSUB 1 280 x GOSUB 1 240 x GOSUB 1 340 x IFCO >5THEN1 430 

1460 T0-T0-1*PR INT852 ,"T ntex",TO, M " , x IFTO 10THEN1 450ELSEIX-1 x IX- 

1 ■ I xEND 

1465 'MOLOURA 

1470 FOR JX-OTO 1 27 x SE T < JX , 0 ) x SET ( JX , 47 ) x NE XT JX 

1475 FOR JX-0T047 iSET< 0,JX)xSET< 127, JX) xNEXT JXxRETURN 

1480 K»KXxL-LXxMO»MXxN«NXxRETURN 

1485 KX-INT ( K ) XLX- INT < L ) xMX-INT ( MO ) x NX-INT ( N) xRETURN 

10000 ENO 



QUASII/USR 

£ o segundo modulo Z80. A listagem 3 contem o programs 
para o compilador: QuasII/CMP. Os parametros para esta com 
pilasffo sSo , na mesma ordem de entrada, os seguintes: 4100 
1 50, 70, 0 (offset), 900 (texto), S (deve ser 60236), 0, 0, 0, 0 
0,1 (SVs) e 10. 

No DUMP para salvar, deve-se dar o FILENAME de chama- 
da de Quasar IV, que e QUASII/USR. S6 isto. 







Listagem 3 - QuasII/CMP 





1000 'JERRY/CMP FOR OUASAR IV (QUASII/USR BY COMPILER) Zorro/8 

4 

1005 EX-0+HCLS*TX-30iF0RIX-lT05*SX-30xG0SUB1290*SX-15xG0SUB1290 
xNEXTIX 

1010 FOR IX-0T0127X SET(IX,0)xSET(IX,l)xSET(IX, 42)> SET(IX,43)x NEXT 
IX 

1015 F0RIX-0T043xSET(0,IX)xSET<l,IX)iSET<126,IX)iSET<l27,IX)xNEX 
TIX 

1020 FOR IX-82T085 * FOR JX-24T025X SET ( IX , JX ) x NEXT JX x NEXT IX 

1025 FOR IX-96T099 xFOR JX-6T07 x SE T ( IX, JX )xNE XT JX xNEXTIX 

1030 FOR JX-36T040*SET ( 1 1 4 , JX ) x SET ( 1 1 7 , JX ) xNEXTJXxSET( 1 16, 40) xSET 

(115,40) 

1035 SET( 124,5 )XSET( 122,4) XSET( 118,4) tSET( 118,2 )XSET( 122,2) XSET( 
124,7) xSET< 120,7) xP0KE15484,145xP0KE15549, 145XP0KE15547, 145 
1040 FORK X- 1 TO 15 < GOSUB 1 285 x NX- I NT ( 10«RN0(0)+1 ) 

1045 F0RIX-1T0NX 
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MICRO SISTEMAS, 




DESCUBRA AS DIFERENCAS 



ApBrBnt«moM0 estes dols cebos 
5 J1 o iguais. 

Olhe bam a as 

dif Brenyiis 

Salugao: 

1 - 0 tab* de cima ^ AUDIOFLEX. Ele 

iem coficinhuidade de caracterisf icas 
aiaincas ao long* de loda linh*. 
pbrqua fabricado com o melhor 
■aqu^pamanto ft £u£i quatidads 
tonirblatla erm toda linba de 

2 - 0 cabo de cuna AUDIO FLEX. Ele 

e fabricado com cobre eletrolilico 
nova e poimiiiari* novo nada de 
mat^rra-prima rec jpo.'uda. 

3 - 0 cab* de cpma A AUDIO FLEX. 

Sua mpnTaqem 4 rapida & tdcil, 
devido As divafsificaefles de bpos a 
cone? bobinadDs Ob comp n memo 
ensto 

4 - 0 eabo de cima A AUDIO FLEX. Ele 

passa polo mai 3 i evan^edo controle 
de quakidade. 




S - 0 cabo m eima ^ AUDIQFLEX. Ele 
A fabncado por qma empress que 
sb fabrics cabos tspeciais 

G - 0 cabo de cima e AUDI OF LEX. Ele 
a feitD com s mais .nlln lecnolbgia 

7 - 0 cabo de cima ^ AUOlOFLEX. Ere 

6 fabricado em mais de 10 !ip*s 
dilereetes 

8 0 cabo de cima d AUDIQFLEX. A 
emptesa qua o fabtica tern gm 
Depanamento de Eegenhana 
ptapatado para inditar qua I * 
melHor tipo para seu caso 

9 - 0 cabo de eima £ AUDIOFtEX Ele 

£ fabricado em vdrios tipos de 
biiblas e bli bdaqens. 

10 - 0 cabo de cima d AUDIQFLEX. Ele 
£ fabricado com varies tlpos de 
tondutor&s ibiernos. 

Agore. se vbc# bsi£ pensando qua 
dlescobriu as dlfBr«^4S, vOCfi *rrou. 
porque o da baiiMb tamb£m £ KM P 
e 8 KMP tem a mais alte taciiClogia 
cabas espacreig. 



AUDIOFLEX 



kmP 



Cabas Especiab e Sftt&m&s Ltda. 



0R lie - km 25. - c*. Postal 146 - 06600 
|m tjHj $P tel 01 1 404-2433 Pabx ■ Tm* 
01 1-33234 <MPL BR Tdvqwrr** 



QP 



Ckjalquo? duvuda chame nosso DcMrEarrM-rticp rln: d* Mfl^eEing 







Trocam-se 8 micros 



comuns por um 
Micrao Cobra 480. 







CumpulatfOtf'OS 

eSisl^mas 

BnssifeHrosSA 



Rio {021 ) 265-7552 Flonamipoiis (048)222-0580 

Sao Paulo (011) 826-8555 Belo Horrzonle (031 ) 225-4955 

Brasilia 1061) 273-1060 274 9820 Hecife (081 ) 222-031 1 
Porto Ategro (051 2) 32-71 1 1 Salvador (07 f) 24 1-5355 

Curitiba (041 ) 234-0295 FdflalMS (005) 224-3255 




Ate hoje, a con ted a o seguintetas empre- 
sas pequenas compravam microcomputa- 
dores. As empresas orandes compravam 
cormpul adores qrandes, E as empresas que 
eram grander demais para um micro ou pe- 
quenas demais para um computador 
grande, compravam um prabiema. 

Agora , voce pode trocar o problems por 
uma solugao: o Micrao Cobra 460- 
Aliando odesempenho do processa- 
mento em 1 6 bitsd possibilidade de ser 
usado por ate 8 pessoasao mesmo tempo, 
o Micrao Cobra 460 6 uma Sotelo perteita 
para quern precise mais qua um micro, mas 
nao quer pagar o alto prego de uma maquina 
de grande pode. 

Com 8 terminate 5 iinhas de comunica- 
pao s i ncron a , caparidade de memdria de 
ate 1 Megabyte, ate 4 unidades de disco rt- 
gido Winchester de 10 Megabytes, ate 2 uni- 
dades de fitade 800/1 600, 45 ips. e com im- 

E ressoras de I inha ou seriais, o Micrao Co- 
ra 460 tanlo pode resolver todo o prooessa- 
mento de dados de uma empresa de ports 
medio, como darconta do processamento 
distribuido em grandes empresas. 

E com uma vantagem q ue nenhum 
grupode micros oferece: o Micrao 460 pode 
crescer. Como ele 6 compativel com os 
com pu (adores de major porte da Cobra, 
amanha sua empresa pode migrar para 
uma mdquina maior, preservando todo o in- 
vestimento que foi feito em software 
e periferioos. 

Va ate a filial Cobra mais prdxima e co- 
nhepa o Micrao Cobra 480 em detaihes. 

Vocte vai descobrir um computador com 
as medidas certas em tudo. Ate no prego. 



Tratar aqui. 




QUASAR IV: UMA AVENTURA COMPILADA 



1050 XX-XX+i l I FXX< 125THEH1 055ELSEXX" 1 24 
1055 YX-YX+lUFYX<41THEN1060ELSEYX-40 
1060 SET(XX V YX) INEXTIXINEXTKX 

1065 F0RKX-lT013iG0SUB12B5iNX-INT<10*RND(0)*i> 

1070 FORIX-iTONX 

1075 XX-XX+1 l IFXX< 125THEN1 080ELSEXX" 1 24 
1080 YX-YX-1 • IFYX>2THEN10B5ELSEYX-3 
1085 SET(XX,YX) INEXTIXINEXTKX 
1090 F0RKX-1T025 

1095 GOSUB 1285iNX-INT(24*RND(0)*i ) iNX-NX^XXl IFNX< 126THEN1 100ELSE 
Nt-125 

1100 FORIX-XXTONX 

1105 JX-IXM i AX-POINT < JX,YX> i IFAX— 1THEN1 130 

1110 IFIX< >XXTHEN1 1 1 5ELSE JX* IX-1 1 AX*POINT < JX , YX ) * I FAX*- 1 THEN 1 130 
1115 JX-YX-l l AX-POINT < IX. JX) I IFAX— 1THEN1130 
1120 JX-YX + 1 * AX-POINT ( IX , JX ) I IFAX--1 THEN1 130 
1125 SET < IX , YX ) 

1130 NEXTIXiNEXTKX 
1135 F0RKX-1T035 

1140 GO SUB 1285 1 NX- 1 NT < 15*RND<0) + 1 ) INX-NX+YXI IFNX< 42THEN1 145ELSEN 
X-41 

1145 DX-0 1 FOR I X-YXTONX* AX-POINT (XX, IX) t IFAX-0THEN1 ISOELSEDX-OtGO 
T01 175 

1150 DX-DX* t * JX-IX+1 1 AX-POINT ( XX , JX ) 1 1 FAX-- 1 THEN 1 175 

1155 IFDX< >1THEN1 160ELSEJX-IX-1 1 AX-POINT < XX, JX) I IFAX— 1THEN1 175 

1160 JX-XX-t I AX-POINT ( JX , IX ) > I FAX-- 1 THEN 1 175 

1165 JX-XX* li AX-POINT < JX.IX)HFAX— 1THEN1175 

1170 SET ( XX , IX ) 

1175 NEXTIXiNEXTKX 

1180 FOR JX- 1 TO 1 0 > GOSUB 1 305 1 SX-20 1 GOSUB 1 290 1 GOSUB 1 3 1 0 1 SX- 40 1 GOSUB 
1290 l NEXT JX 

1185 F0RKX-1T045* IX-INTC 1 21 *RND ( 0 ) ♦3 ) I JX-INT ( 37*RND< 0 ) +3 ) * SET < IX 
. JX) IG0SU81320INEXTKX 

1190 PRINT3962, "Modulo de Servico" » *PR INT3986 , "< QUASAR IV >"»iP 

R I NT 31 009 , "Energy! "piPRINT31016,EXj 

1 195 TX-20 IFOR IX-1 T020ISX-21- IX* GOSUB I29UINEX f IX 

1200 XX-22IYX-31UX-124I JX-3i SET < XX , YX ) iSET < IX. JX)iTX-10 

1205 HX-OiVX-OiKX-OlLX-O 

1210 IFXX>-IXTHEN1215ELSEHX-1 

1215 IFXX< -IXTHEN1 220ELSEHX-- l 

1220 IFYX >-JXTHEN1225ELSEVX»l 

1225 IFYX< - JXTHEN1 230ELSEUX--1 

1230 AX-PEEK <14368) l IFAX< > 16THEN1235ELSEKX--1 

1235 AX-PEEK (14368) l IFAX< >64THEN1240ELSEKX-1 

1240 AX-PEEK< 143*4 ' iIFAX( >4THEN1245ELSELX— 1 

1245 AX-PEEK < 14344) i IFAX< > 1 THEN1250ELSELX-1 

1250 EX-EX- 1 tPRINT31016.EX|" ", iSX-50iG0SUB 12901 IFEX-0THEN1325 
1255 RESET < IX, JX) I IX-IX*KX« JX-JX+LX* AX-POINT < IX, JX) 1 1 FAX-0 THEN 12 
60ELSE IX-IX-KX* JX-JX-LX 

1260 SET(IX, JX)tIFJX< >34THEN1265ELSE IFIX< 21 THEN1265ELSEIF IX >23TH 
EN1 265ELSEG0T01 340 

1265 RESET ( XX, YX) i XX-XX+HXi YX-YX+VX I AX-POINT ( XX . YX) l IFAX-0THEN12 
80 

1270 IFXX< > IXTHEN1 275ELSEIFYX< >JXTHEN1275ELSE GOTO 1355 
1275 YX-YX-UX i AX-POINT (XX. YX) 1 1 FAX-OTHENi 280ELSEYX-YX+VX t XX-XX-H 
XiAX-POINT(XX, YX) I IFAX-0THEN1280ELSEYX-YX-VX 
1280 SET(XX, YX) i GOTO 1205 

1285 XX-INT( 123«RND<0)+2) I YX- INT < 39«RND < 0 ) *2 ) i RETURN 

1290 FORAX-lTOTXi OUT 255 , 2 * GOSUB 1 295 1 OUT 255 , 1 * GOSUB 1 295 1 NEX T AX * RE 

TURN 

1295 FOROX-l TOSX iNEXTDXiRETURN 
1 300 FORDX-1 T032500 i NEXTDX i RETURN 

1305 AS-" "IPRINT3649.AS, xPR INT3713 . AS , iPR INT3777, AS» iRETURN 

1310 FOR IX-20T024 i SET( IX , 3? ) iNEXTIX 

1315 SE T ( 20 , 34 ) i SET < 20 , 33 ) i SET < 2 1 , 33 ) I SE T < 23 , 33 ) i SET ( 24 , 33 ) i SET < 
24,34) iRETURN 

1320 TX-5 * SX-5 * GOSUB 1290 iRETURN 

1325 CLSiPR INT"Hodulo dr Scrvico km rncrg ia nao pode prosseguir 
"IPRINT 

1330 PRINT"Tr ipulacao sea ox i gen i o. . . "xPR INT 

1335 PR INT"E * dado coao perd ido. . ."iGOSUB 1300 iGOTOl 365 

1340 CLSiPR INT"CONGRATULATIONS»" IPRINT 

1345 PR INT"Modul o de Service, acaba de chegar ao deposito de"iPRI 
NT "Cr ittais de L i t i ua da Federacao nesta galaxia. "IPRINT 
1350 PR INT "TRANSPORT E i Cristais sendo teletransport ados. . ."iGOSU 
B 1300 i EX-3000 t G0T01 365 

1355 CLS iPR INT"SENSORES * Perdido contato coa Modulo de Servico"! 

PRINTiPRINT"Missi 1 Klingon destruiu Modu 1 o . " i PR INT 

1360 PR INT"Coaun i cacoes i nt err oap i das. . iPR INT i G0T01335 

1365 EX-1 • I * END 

10000 END 



QUASAR/MIX, 0 JOGO 

Aos que suportaram ate esta parte, nao se desesperem: a lis- 
tagem 4 e a ultima e contem o programa principal do jogo. Os 
24 Kb de BASIC sSo o antepenultimo obstdculo entre o co- 
mandante da Enterprise e a conquista do espa^o (o ultimo sao 
os KJingons...). 

0 penultimo obstaculo sSo as linhas 1 , 6001 e 6002 da lis- 
tagem 4 , pois e preciso inserir nestas linhas tres pequenas ro- 
tinas em linguagem de maquina, de preferencia usando-se o 
utilitario Pokodes (MS n 9 36 ) embora seja possivel tentar fa- 
ze-lo de outra forma (com o Superzap, POKEs ou CHRS 
( )...), com o Pokodes e bem mais fdcil (veja o Apendice A, 
no final do texto). 

A linha 1 e um REM, com 72 cddigos de maquina que de- 
vem ser colocados no lugar dos numeros da linha 1 que servi- 



ram para reservar o espa 90 de 72 bytes (o REM fica). £ impor- 
tante que esta linha seja a primeira do BASIC, pois como tal e 
endere 9 ada por POKE(16548) + 256 * POKE(16549) + 5 na 
linha 45. Observe que o +5e para endere 9 ar a rotina Z80 ap6s 
os quatro bytes que inicializam cada linha BASIC mais o c6- 
digo (token) de REM. 

Os 72 cddigos de maquina para a linha 1 sSo: 205, 127, 10, 
203, 124, 40,4,34,28,65,201,34,30,65,219,255,31,31, 

31, 47, 230, 248. 95,58, 57,65,254,4,32,2, 171,95,58, 

32, 65, 87, 237, 75, 28, 65, 43, 124, 181, 40, 6, 221, 227, 
221, 227, 24, 12, 42, 30, 65, 122, 7, 7, 87, 230, 3, 179, 211 , 
255, 3. 1 20, 1 77, 32, 228, 1 23, 21 1 , 255, 201 . 

Nas linhas 6001 e 6002 deve-se empacotar nas varidveis 
strings XS e YS as rotinas Z80 restantes, mas sem apagar as 
aspas normais da string (”). Os numeros foram colocados para 
reservar o espa 90 necessario. O endere 9 amento e feito por 
VARPTR( ) nas linhas subseqiientes. 

Os 70 cddigos de maquina para a linha 6001 sao: 33, 253, 
177, 243, 62, 1,8. 62, 35, 61, 190, 32,2,251,201, 126,35, 
86, 94, 29, 14, 10, 6, 225,21,32, 14, 87,62, 120, 190, 40, 
6, 8, 238, 3, 211, 255, 8, 122,86, 29,32, 15,95,62, 120, 
190, 40,6,8,238,3,211,255,8, 123,94, 29, 16,219, 13, 
32,214.61.32,209,35,24, 193. 

Os 54 cddigos para a linha 6002 sao: 32, 149, 32, 74, 16, 
79, 8, 99, 8, 88, 16, 79, 12, 74, 4, 120, 32, 149, 32, 88, 48, 
99, 16, 120, 32, 177, 32, 111, 16, 118, 8, 149, 8, 133, 16, 
118, 12, 111, 4, 120, 16, 133, 8, 158,8, 149, 16, 133, 16, 
118,64, 149,32,120. 

Apos a introdu^o destes cddigos nas linhas 1, 6001 e 
6002, estas linhas nSo poderffo mais ser editadas, para que n£o 
se perca a informa^o. Um LIST nestas linhas mostrara uma 
sujeira maluca. Mais uma vez aconselhamos que se use o Po- 
kodes/BAS*, mas quern nffo tern o Pokodes, pode usar o Super- 
zap. E quern nSo tern o Superzap, utilize CHRS ( ) para XS 
e YS, e de POKEs na linha 1 (no endere 90 ]i explicado) e 
substitua o LPRINT da Unha 2645 por GOSUB6001 (RE- 
TURN): LPRINT. 

Veja em seguida alguns comentdrios que merecem desta- 
que: 

- Note na linha 9 o LOAD dos mddulos compilados com seus 
FILINAMEs. A - defin^ffo de seus Entry-Points (DEFUSR) 
se da nas linhas 2734 e 5035 e as chamadas logo em seguida. 

- Muitas vezes e feito o teste IF PEEK( 16549) > 80 THEN 
DEFUSR... para saber se estd em BASIC Disco ou sd em cas- 
sete, isso foi feito para ajudar a quern sd tern cassete. Quern tern 
BASIC Disco pode eliminar algumas coisas sempre que encon- 
trar este IF (que esta, por exemplo, nas linhas 20, 45, 2734 e 
5035). 

- Em algumas linhas como 130 e 160 e usado o cardter ( ] ) 
que normalmente nSd entra pelo teclado, utilize CHRS(93), 
concatenando assim as strings para ficar a mesma coisa (ou 
entao fa 9 a uso do utilitario Pokodes/BAS). 

- Ndo e necessario posicionar o memory size antes de rodar o 
programa, pois a linha 9 faz isso. 

- Na defin^ao de strings do painel de comando nas linhas 1 30 
a 160 e 480 a 550, 6 importante acertar bem o seu tamanho e 
nao pular nenhum espa 90 em branco. 

- As saidas do jogo ocorrem a partir de 2600 e a avalia 9 Sd e 
feita em 2630, varidvel N. 

- Ndo esquecer as conexdes de dudio para o som. 

0 jogo : instru 9 oes e dicas 

A missdo da Enterprise e patrulhar a galaxia atd esgotar o 
seu tempo, medido em centons, ou atd capturar ou destruir 
todos os inimigos da Federa 9 do que estdo escondidos pelos di- 
versos quadrantes da galaxia. 0 comandante da nave tern que 
enfrentar todos os Klingons, os Atlantis, os Romulans e os 



Darthlans e ainda escapar das dificuldades e imprevistos das 
viagens pelas dobras espaciais. 

No nivel fdcil (6), mais centons sao fornecidos para a execu- 
9$o da missdo, porem mais inimigos sdo encontrados, o que po- 
de ser mais perigoso. A probabilidade de imprevistos ocor- 
rerem neste nivel e menor e a viagem transcorre com mais 
calma, o que e melhor para os iniciantes. 

A galdxia d dividida em 8x8 quadrantes de 8x8 setores 
cada. Os sensores de curta distancia (short range sensors) 
mostram no painel principal de controle da Enterprise o 
quadrante atual que a espa9onave se encontra e os 8x8 setores 
do quadrante. A Enterprise e represen tada por um +, as es- 
trelas por * uma das bases por 0-0 e os inimigos por diver- 
sas formas. E importante observar bem os setores para o cdlcu- 
lo da inclina9ao de tiro (graus) dos misseis. As coordenadas do 
setor do quadrante, e do quadrante da galaxia que a espa90- 
nave estd, sdo mostradas na parte superior do painel principal 
(e em outros paineis tambem, para localiza9do). 

Os sensores de longa distancia (long range sensors) exibem, 
no centro da tela, as informa9(5es sobre o quadrante que a 
Enterprise estd e, ao lado, as informa96es sobre os quadran- 
tes vizinhos. Essa informa^o vem na forma de tres digitos, 
KYZ, que indicam a presen9a e o numero dos seguintes ele- 
mentos: inimigos, bases e estrelas. 

0 computador de bordo sempre armazena as informa^es 
colhidas pelos sensores de longa distancia e sobre o quadrante 
atual, mostrando-as reunidas para permitir o estudo da estra- 
tegia no painel galaxy records. Iniciado o jogo, o que hd nos 
quadrantes (menos o atual) da galdxia e desconhecido. 

As bases estelares sSo poucas, mas se o comandante quiser 
sobreviver e melhor descobrir logo as suas localiza90es. Ha, 
entre os Pianos de Emergencia, a possibilidade de se tentar 
contato com as bases pelo rddio, buscando assim a localiza9^o, 
mas e grande o risco da base ser localizada e destruida pelos 
inimigos se o comandante n£o souber lidar com os cddigos 
secretos de comunica9^o. E sem base... n^o ha como resistir. 

£ bom ficar de olho na energia disponivel e na energia do 
campo de prote^o (shields). Os shields protegem a espa90- 
nave dos phasers inimigos, mas tambem atraem os seus mis- 
seis. Os tiros de phasers distribuem a energia total do tiro pelas 
espa9onaves inimigas presentes no atual quadrante, atingindo 
com maior intensidade as naves mais prdximas e que nSo est^o 
perto de uma estrela, protegidas. Cuidado para n£o usar mais 
energia do que hi disponivel nem esgotar as reservas logo no 
inicio da jornada, pois a recarga geralmente 6 dificil. 

As espa9onaves inimigas contidas em um quadrante n£o 
ficam paradas, nem s£o burras: elas se aproximam para atirar 
e se afastam quando estSo em apuros, e muitas vezes se prote- 
gem prdximo a uma estrela, que absorve os misseis ou os ti- 
ros de phaser da Enterprise. E muito cuidado se os danos sSo 
elevados ou os niveis de energia total ou dos shields ficarem 
baixos, pois eles tern os seus sensores e se aproximam em for- 
ma9£o cerrada (quando ha mais de um no quadrante), aprovei- 
tando qualquer oportunidade para tentar destruir a Enterprise. 

NSo hesite em fugir se estiver na pior, mas aten^o com o 
quadrante vizinho: pode ser fatal. Um bom comandante pre- 
cisa sempre saber se localizar e estar pronto para uma a9^o 
rdpida e correta. Um tiro de phaser destrdi um inimigo quan- 
do a energia com que este foi atingido 6 superior i sua energia 
total disponivel. Esta energia s6 pode ser observada pelos sen- 
sores da Enterprise quando um phaser a tinge o inimigo. Pode- 
se usar tambem o equipamento de emergencia, mas gasta-se 
mais energia e e bem complicado. 

Os misseis sSo atraidos pelo campo de prote^o. Isso 6 vd- 
lido para os dois lados, mas nem sempre acertam o alvo: nos 
limites do quadrante ou perto de uma estrela 6 bastante difi- 
cil acertar ou ser acertado. Cada tiro de phaser que atinge a 
Enterprise diminui a energia de seu campo de prote9So da 
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quantidade de energia com que esta foi atingifla. Alarmes de 
emergencia n£o devem ser negligenciados, pois geralmente in- 
dicam que o fim estd prdximo. 

Se uma se92o e danificada, n^o se pode usd-la. Para repara- 
la sdo necessdrios alguns centons, mas isso ndo deve ser feito 
durante uma batalha, porque os Klingons nSo vdo ficar espe- 
rando.. A mdxima velocidade que os motores danificados atin- 
gem e de 0.2 Warps, sendo que o normal e 9 Warps. A travessia 
de um quadrante a outro pelas dobras espaciais exige uma velo- 
cidade de impulsSo minima proporcional a distancia entre a 
Enterprise e o limite do quadrante na dire^o desejada. £ pos- 
sivel saltar vdrios quadrantes de uma vez, adicionando-se 1 
Warp por quadrante, mas cautela com o consumo de energia. 

Imprevistos e situa9des dificeis podem ocorrer ao se usar as 
dobras espaciais. Deforma95es no espa90 podem conduzir a 
Enterprise para fora da galdxia a grandes velocidades, e ai e 
preciso manobrar com rapidez para evitar que a Energia acabe 
e nS^o sobre energia suficiente para a vol{a. Campos de minas 
Klingon e tempestades muito estranhas podem ser encontra- 
das no hiperespa90, e ambas conduzem ao aMm. 

Abaixo do nivel 3 e muito dificil sobreviver is minas hi- 
perespaciais. Para conseguir energia, pode-se ir ate uma base, 
procurar cristais de litium na zona neutra com o mddulo 
de servi9o, ou ent 5 o arriscar a vida em 6rbita de um planeta de 
anti-materia. A base e o mais Hcil, mas nem sempre estard dis- 
ponivel. Para chegar ate' o depdsito de cristais dp litium 6 pre- 
ciso superar o missel cruise Klingon, que 4 lan9ado de uma 
rampa prdxima ao deposito assim aue o m6dulo manobrado 
manualmente entra na zona neutra (o numero de mddulos de 
servi90 6 limitado). E o planeta de anti-m^t6ria... 6 melhor dei- 
xar para usar s6 em ultimo caso, mas par^ quern precisar, 6 
aconselhavel ficar em drbita apenas o tempo necessdrio e nSo 
for9ar a sorte (este planeta e as minas hiperwpacjais costu- 
mam ser o cemitdrio do jogo). 

Na hora de atravessar o campo de Quasar IV, que e' resul- 
tante de explores de estrelas super-novas, lembre-se que os 
controles manuais sio iguais aos do aviso: para baixo sobe e 
para cima desce. S6 se con^gue a travessi^ pplo setor central 
do campo e sempre acompanhando <is linhas de forca. Cada 
particula atomica que atinge a Enterprise e uma tela ae prote- 
93:0 a menos. 

A Enterprise acopla-se a uma base apenas encostando nes- 
ta (aten9^o:e para encostar , uma colis^o pode explodir tudo!), 
e automaticamente sera feita a recarga e a manuten9ao. Ao 
usar os motores para se movimentar, lembre-se, da localiza^o 
das estrelas) 

Os radares quadradar e intergaldtico s2fo emergencias para o 
caso de navega9ffo as cegas, e sSo geralmente usados durante 
combates em que foram destruidos os sensores de curta ou 
longa distancia. Nesses casos, antes de fugir ainda e' possivel 
sobreviver usando os antiquados radares. Coipo radar, porem, 
nao ha a indica9ao do que s So os objetos detectados, exceto 
a prdpria espa9onave. 

Para fugir de um quadrante, numa situa^o de desespero, 
resta o black-hole ou buraco negro, pois pode-se chegar ao 
hiperespa90 mergulhando em um black-hole, se a espa9onave 
conseguir ser controlada na travessia do Tunel de Plasma. £ 
indeterminado o quadrante resultanfe, havendo amda o peri- 
go adicional de um afastamento excessivo da 

A vida do inimigo tambem tern valor: prisioneiros fazem 
mais pontos na avalia9$o do que defuntos. Captura-se uma es- 
pa9onave inimiga com a redu95o de sua energia ao minimo 
(quase zero) e depois com a aproxima^o, pois 56 ent 5 o po- 
derii haver a rendi9a:o. . , ^ ‘ . 

Por fim, alguns avisos aos futuros comandantes: a auto des- 
tru^Jo d, no minimo, desaconsplhdvel, porque n?o hi como 
desistir no meio; para descansar, pe9a a instru^o sobre os co- 
mandos; cada manobra efetuada consome ewigia e tempo, por 
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isso 6 fundamental planejar; a avalia 9 ao maxima 6 100, mas 
quern chegar vivo ao final dos tempos ]£ e um heroi, e quern 
passar dos 50 pontos e um verdadeiro monstro. Experimente. 

• Apendice A : Pokodes 

O utilitdrio Pokodes/BAS (publicado em MS n9 36) tern 
que ser ajustado para sincronizar os comandos DATA contidos 
nele, no caso do programa co-residente tambem utilizar co- 
mandos DATA. Isto e resolvido com a inclusao de duaslinhas 
(mas n£o esque^a de retirar da linha 65010 o CLEAR e o 
RESTART): 

65005 CLEAR : DATASINCRO 

65006 READ I $ : IFI$<> M SINCRO n THEN65006 

• Apendice B: TRSDOS 

O Compiler/BAS e o Pokodes/BAS rodam normalmente em 
TRSDOS. Apenas a linha 9 do Quasar/MIX, onde estao os co- 
mandos que carregam os modulos Z80 escritos para o NEW- 
DOS, e que tern que mudar para: CMD“L’\ “QUASI/USR” 
e CMD"L'\ “QUASII/USR”. E quern so tern cassete, vai ter 
que continuar sofrendo, pois comandos como DEFUSR, 
DEFFN e o carregamento acima citado ter£o que ser refeitos. 
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220 EO-4OOOlOOSU036Oiei-XiQ2-YlX-eiZ-llXl-.2O73iYl-6.2eiP4-.4lX2 
-3.28 

230 Y2-l.eiO100iU-i0iP0-UiB9-0iK9-B9lT3-.3iT2-.96lEl-300iK4-B9 
‘240 lil-EO * 008UB830 ■ FOR 1 -0T07 1 FOR J-0T07 1 U-U8R ( 330+1 0* ( J-I ) ) *K-0 *N 
■RN0(0) • IFNTX1THEN270 
230 N-N*64lK-(N(Yi)-Z 

260 K-K+(N<X2)+<N<Y2)+<N< ,28)+<N< .08)+(N< .03>+(N< .01 > *K9-K9-K IPR 
INT363+RND(958> 

270 0-<RND<O>>T2> * B9-B9-B * Q< I , J>-**C+B*U-INT(RND<0>eX+Z> INEXTJ, I 

280 T-K9+<LV-1)*10+.2»TT-T 

290 T%-"MISSIL "I IFK9 >T THENT-K9 

300 K0-K9 1 IFB9< ZTHENG0SUB560 * Q ( X , Y )-Q(X,Y)-P0*B9-Z 

310 A-0* I FBI ( 00RQ1 > 70RQ2 ( 00RQ2 > 7THENN-0 1 S-0 I K -0 * GOT0330 

320 N-ABS(Q(Qt.Q2> > iQ ( 01 , 02 ) -N* S-N- INT ( N/P0 ) *P0*K-INT(N/100> 

330 B-INT (N/P0-K*P0> iG0SUB560*Sl-X *S2-Y 

340 00SUB45IF0R I-0T07 1 FOR J-0T07I8 < I,J>-Z*NEXTJ,Il8(Bl,82)-2*F0RI 
-40T01STEP-1 IU-USR < -200) lU-USR ( I > INEXTI 

330 FOR I -0T07 »K3( Z )-0«X-8« U-USR < -80 > * U-USR < 2 ) » I F I < K 006UB 390 1 8 < X , 
Y)-3lK3( I )-RND(0) *1000 

360 G0SUB630 1 NEXT 1 1 -S s IFB > 0THEN00SUB590 1 8 < X , Y ) -4 
370 I F I >0THE NCOS UB 390 » S ( X , Y > -3 » I - 1 -Z * 00T0370 

380 IFT(0THEN260OELSEIF100*RND(0)<-8-LVTHENIFRND<10> >5THEN10000E 
LSE3000 

390 G0SUB780I IFA-OANDRND < 0 ) < P4 THENG0SUB640 * 00SUB80 
400 IFE< OTHENPR INTGS+ JS,E * Q0T0261O 

410 I-Z«H-0iG0SUB570*IFD(I> >OTHENPRINT» IX-i IGOT0910ELSEIX-0 
420 SS*-SC**G0BUB20*U-U8R<270) 

430 T-T + . 01 * GOSUB 1970* I J-70*G0SUB 1620* IQ-ABS< INT ( <Q2*8+Q1 )/16> ) « 
IF IQ )3THENIQ-0 

440 FOR I-OT07 (FOR J-0T07 * PR I NTS 195+ I *64+ 3* J , MIDI ( Q%( IQ ) . 3*S< I , J>- 
2, 3) i iNEXTJ 

450 0NIG0T0490 , 480 r 520 . 330 , 500 , 510 , 540 
460 PR I NT 8222 , "CONDITION ",CS," ", 

470 NEXTI 100T0940 

480 PR INT 3350 , D1 < 6)+" "♦Hi, «PR INT3361 , , I PR INTUSING"IMMU* . R" yE 1 , * 

G0T047O 

490 PR INT3286, "CENTONS "+HS, iPR INT3298 , , * PR INTUBING"IMI . Q" , T , iG 
0T0470 

500 PR INT3342 , "STAR BASES "+Ht, IPRINT3553. , iPRINTUBING"»M«",B9, «G0 
T0470 

510 PR INT3606, "PR ISIONER "+HS, IPRINT3619, , *PR INTUSING"IM»" ,K4 , iGO 
T0470 

520 PR INT3414.GS+" "+H4, IPRINT3425, , *PRINTUSING"RIMMI.Q",E, *G0 

T 0470 

530 PR I NT34 78 r "MISSILES "+H», *PRINT3491 . , iPR INTUSING"**" , P , *G0T 
0470 

540 PR I NT 36 70 , K t < I Q ) +H4 , i PR INT 3683 , , * PR INTUS ING"RR" ,K9, IG0T0470 
550 PRINT" "+DS(0)+"SHUT 00UN",CHR%<30> *G0SU8B0*D(0>-D(O>+T3*RE 
TURN 

560 X-INT(RND(0)*8)*Y-INT(RND(0)*8) I RETURN 
570 E-E-HiEl-El-Ht IFE<EITHENE1-E 
580 RETURN 



Listagem 4 - Quasar/MIX 



590 GOSUB560 *IFS<X,Y> >ZTHEN390 
600 RETURN 

610 FOR I -0T 07 tIFK3(I) >0THENS(K1 ( I ) ,K2( I ) ) -Z * G0SUB590 * B ( X , Y ) -3 I GO 
SUB630 

620 NEXT iRETURN 

630 K 1 < I > -X tK2( I > -Y * RETURN 



1 REM1 23456709012345678901 23456789012345678901234567890123456709 
0123456789012 

9 CLS*PRINT QUASAR IV LOAD GAME . "* POKE 1656 1 , 0*P0KE 16562 , 212* PR IN 
T * CLEAR 400* PR I NT "MEMORY SIZE SET AT * " ,256*212* PR I NT "Load machine 

language.. ."iCMD'LOAD QUASI/USR"*CMD'LOAD QUASII/USR" 'NewOos 

10 R ANDOM* RESTORE *DEF INT I -M r S, Q, Z* GOSUB 1810* GOSUB 6001 * GOTO 100 

20 I A • -UARPTR ( SSS > * IL I -PEEK < I A • ♦ 1 ) * IH ! -PEEK < IAI+2) * IAI-IHI *256+ 1 
L I * IA ! -IA » + < IA I >32767 ) *65536* IFPEEK < 16549 > >80THENDEFUSR»I A I *RETU 
RNELSEP0KE16526.IL' : POKE 16527, IH ' * RETURN 

30 SSl-SES * GOSUB 20 * I A • -I A • + 1 0* IB » -I A ! +2*P0KE I A ! , 29840/MN*P0KE IB I 
. 29840/MX *U»USR < DR • < MX-MN > /2 > *RE TURN 

40 SSt-STS* GOSUB 20* FOR I J-1T02*F0R JI-1 T02*U-USR <JI»20)*NEXTJI,IJ* 
G0SUB70* RETURN 

45 SI -256*PEEK < 16549 >+PEEK ( 16548 )+5*S I -S I ♦ < S I >32767 ) *65536*P0KE1 

6672.5* IFPEEK ( 1 6549 > >80THENDEFUSR-S I *RETURNELSESH I -F I X (S I /256 > *S 

I • -S ' -256*SH * *P0KF 16526, SL * SP0KE16527 , SH ! iRETURN 

50 FU-SQR < < K1 < I > -SI >C?+(K2<1 >-S2)C2> a RETURN 

60 MN C 1 60*MX-4A0* 0R = .5*F0R 1-1 TOl +X/ 100 * GOSUB 30* NEXT I * RE TURN 

70 IFIX-1TMFNRETURN ELSET-T .2*PR INT3298, , *PR INTUSING •*** . N" , T , *R 

ETURN 

80 FOR IK*1 T0230*NEXTIK * RETURN 

90 FOR I - 1 T0230* U-USR ( INT ( I /2 > +256 > * NEXT I *RETURN 

100 DIMDS(8> ,K*<3> . Qf < 3>,D<8) . K 1 < 7 > ,K2 < 7 > , K3( 7 > ,S<7,7> ,Q(7,7),KC 
< 3, 3 > *US-" RA70AVEL I I " *P 1 =. 1 

110 CLS*TR INT3280, "Q U A S A R 1 V "*PR INT3960. "Bg Zorr o ' j TAB < 57 > 
1984 ; * SSS-SCS * G0SUB20 * G0SUB90 * GOTO 1 30 
120 SS5=STS*00SUB20*F0R 17= 1T04SPR INT3I J. STRINGS <l.EN(E»> ,32> | tU-U 
SR ( 50 > ♦ U5R <70»*PRINT3lJ,E4j*FORJ9»lT010sNEXTI9,I7*RFTURN 
130 Q*<0>= . 8^ • " * 0% Cl) . [O— >0-0 ■ :Q%(2>«" . C + 

3 — 30*8 • " *GS< 3>«" . C ♦ 3K -* >0< ■ "*D%(0> -"WARP ENGINES "*0I(1>- 
"SHORl RANGE SENSORS ' 

140 Jt- *D%(2>= LONG RANGE SENSORS "*D%<3>- PHASERS "*0t="0NLY 
GOT :ENS=' ENTERPRISE" 

150 D»(4)« PHOTON MISSILES *DS(5)="GALACTIC RECORDS "*GS-"ENER 

0Y" 

160 Hf*"C 3"*F%=" LEFT" *D%< 6) -"SHIELDS "*D1»< B> -"EMERGENCY"* 

DS( 7) -"DAMAGE CONTROL " 

170 CLSIPRINT3320. 'SEI ECAO DO MELHOR NIVEL . . . * *PR INT*PR INT "1 - 
0 Maximo. Ninguem lobrevivp, Pr o*el pus. " *PR INT" 2 - Apenas para 
super -homens , Her cu 1 es . ' * PR INT"3 Para pr edest • nados a herois, 

Zorro." 

1B0 PRINT"4 Impossivel, guase. Napoleao."*PR INT"5 - Aos loucos 
, tudo e 'possi vel . . . .Hi Mer . *PRINT"6 - Para iniciantes. uma rap 
Ida destrutrao. Dom Pedra 

190 PRINT*PRINT* INPUT' SIJA FSCOLHA ? LV* IFLV< 10RLV>6THEN2800ELSEK5 
-300+10n»LV* IE=LV*ZL*7-LV* IC-LV+1 

200 SS%-SC* * G0SUB20 * FOR I U- 1 T03 * FOR I K -54T059 * U-USR ( 226+ IK > * NEXTI K 
*F0R TK-69T064STEP- 1 * U-USR < 226» IK > * NEXT IK *FOR IK- 1T020 * NEXTIK *NEXT 
1U 

210 CLS*Kf (0}- K1 Ingons JKK l >="Romulans "*K %< 2 >«"Dart h 1 ans " 
*K5< 3 >="At 1 ant is "SPRINT 'U NIVERSO em FORMACAO 



640 IFK<ZORC*-"DOCKED"THENRETURN 
650 IG-0 

660 FOR I -0T07* IFK3< I > < -00RK >^ANDRND(0 ) < . 15THENNEXT * RETURN 
670 IFIG-1THEN700 

680 IX-1 *IG-1 iCLS * PR INT "QUADRANT" r Q1 + Z | • Q2+Z | * PR INT349 , "SECTO 

R",Sl + Z|"-"|S2+Z| *IJ-25*ES-"A L A R M" iGOSUB 120* PR INT *PR INT * PR IN 
T"C0NDITI0N ",C%, 

690 PRINT" SENSORS DETECT I ON » " ,K , Hi ( IQ ) l PR INTENS+" "+GQ+" LEVE 
LS« SHIELDS*" » El TOTAL*", E 

7 00 IFRND<0) (P4THENI Y-l *PRINTK«< IQ)+" "+Tt, * H-RND ( 0 ) *E1 * MN- 120*M 
X-530 * DR - 1 * G0SUB30 * G0T0730EL SE I Y-0 

710 H-K3< I )*P4*RND(0> *K3(I >»K3( I > -H*009U830iSSS-SN« t00SUB20*U-US 
R < 1 00 > * H-H/ ( FUC P 4 > > G0SUBS7O 

720 E*»EN*e" FROM" * N-E 1 « E3-Z *G0SUB 750* IFH >Ei /2THENH- 150 

730 Ai-A*A-1*E3-I*IFH > 149THENG0SUB900ELSEIFIY-1 THENPR INT" PERDID 

0" 

740 A-Al * I-E3*NEXT *G0SUB80*RETURN 

750 PR INTH , "ACERTOU ",E»," SECT0R",K1 ( I >+Z,",",K2< I >+Z, 

760 IFEl ( 0ANDE3-ZTHEN2610 
770 PRINT"<re*tam",Nj")"*RETURN 

780 FOR I -SI -ZT0S1 +Z *F0R J-S2-ZT0S2+Z * IFI < 00R I > 70R J< 00R J >7THEN820 
790 IFS< I , J ) -4ANDC*-"D0CKED"THEN850 

800 IFK >OANDS< I, J > -4ANDRND ( 0 > >P4THENPR INT3854 , UNDOCKABLE *"*G 
0SUB80 (G0T0820 

810 IFS< I , J>-4THENCS-"00CKED"*T-T-T3«E1-0*PR INT TAB ( 28>CttUl-E0*G 
OTO05O 

820 NCXTJ, I * IFK >0THENC4»" RED "«RETURN 

830 FOR I-0T06* IFD< I > >00RE< E0*P1 THENCS-"YELLOU" * RETURN 

840 NEXT* C%-"GREEN "*RETURN 

850 E-EO*P-PO 

860 IK- 1 * FOR I -0T06 * IF0< IX -0THEN890 

B70 D< I >-D< I >-Ul * IFD< I > < -0THENIFIK-1 THENCLS* IK -0* FOR I7-0T0127 *PR 
INTai20+I7.CHRS<45> , *NEXTI7 iPR INT3212, " (REPAIR TIME) "iPRIN 
TELSEB80ELSE890 

880 PR INTDl < I > , " OK . " *0< I >-0* GOSUB 80 

890 NEXTiRETURN 

900 I-1NT<RND(0)*7)*D(I)-0(I> + INT( ( 3-RND(0 > *2>*P0>/P0 

910 PRINT" ••• "+D*< I >, "DAMAGED ",CHR»<30> *MN-170*MX-1320*DR-.3* 

FOR IK -1T04* GOSUB 30 * NEXT IK * IFD< 1 > >0ANDA< >2THENIX-l 

920 IFA-ZTHENRETURN 

930 IFA>2ANDRND(0> (P4THENG0SUB640 

940 IFK >OANDA >2THEN00SUB61O 

950 IFT< 0THEN2600 

960 IFEl < 1000RE< 3000RE-E1 < 200THENG0SUB2130 
970 PR INT9832 , CHR t ( 31 > , 

9 BO CT-K5IA*-""* IFCS-" RED "THENMN-13O*MX-02O*DR-1 «G0SUB30«G0SU 
B30*G0SUB70ELSEIFCt-"YELL0W"THENMN-120iMX-260iDR-l*G0SUB30iG0SUB 
30 * GOSUB 70ELSEG0SUB 40 

990 PR INTS832 , "Comando ?" , » AS-INKEY1* IFAQ-""THENCT-CT-1 » IFCT-OTH 
EN1 420ELSE990ELSE A-ASC (A4>-48*PRINTA, 

1000 IFA>90RA<OTHENIFRND(10)>5THEN5000ELSE10000 
1010 IX-O* IFA-OTHEN2000 

1020 0NAG0T01060, 380, 1640, 1480, 1040, 1680, 1770, 1740,2330 
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1030 G0T099O 

1040 IFD<4> >OTHENPRINT" "+T1+" TUBES BL0CKED"*G0SUB80»G0T0940 
1050 N-15*IFP(ZTHENPRINT" NO "♦T*+"E"+F»iG08UB80»GOT0940 
1060 IFA-5THENPR INT" "+D* < 4 > +"SYSTEM ON C3", 

1070 IFA-1THENPRINT8855,D1<0> , 

1080 PR INT3896 , CHR t ( 30 > , * INPUT"Curao",C *C-l+C/45* IFC< ZORC >9THEN1 
420ELSEIFC-9THENC-0 

1090 IFA-5THENP-P-Z *MN-120«MX-460*DR-2 *00SUB30*PR INT891 1 , "TRACK * 
",* GOTO 1220 

1100 PR INT8919 , , * INPUT "HARP", U* PR INT8896, , * IF«< -00R«>9THENG0SUB5 

50IG0T01420 

1110 IFU > . 2ANDD < 0 ) >0THEN 1-0 * G0SUB910*PR INT8948 , "Man-0 . 2" , • 00SUB8 
0 * PR I NT 8896 , CHRS( 30 > , * GOTO 1 100 

1 120 G0SUB640 * G0SUB560 » Wl- INT ( RND ( 0 > *40 > * IFU1 >20RCS-"D0CKED"THEN 
1190 

1130 0NU1G0T01 ISO ,1160 

1140 Q1-2*X-P *Q2-2*Y-P *G0SUB2140*G0T0310 

1150 G0SUB2210*G0SUB900*G0T01 190 

1160 F0RI-XT06*IFD<I> >0THEN1 180 

1170 NEXT * FOR I -OTOX « IFD< I > < -OTHENNEXT * GOTOl 190 

1180 D( I )-0*PR INT" SPOCK FIXED ",D»(I>|". ",*GOSUB0O 

1190 Wl-U/PO* IFW1 >-PlTHENUl-Z 

1200 G0SUB860* N-INT < U*8 ) «E-E-T3*NC2*S(S1 ,S2>-Z 

1210 SSt-STS * GOSUB 20* FOR I J-64T04STEPVI- 10* U-USR (IJ>»NEXTIJ 

1220 Y1-S1+T3*X1-S2+T3* IFT(0THFN2600 

1230 Y-(C-Z>*. 785398* X-COS< Y > * Y--SIN< Y ) *FOR I-ZTON* T-T- .01 * VI -Y1 + 
Y 

1240 X1-X14X»Y2-INT<Y1 > « X2-INT < XI > * IFX2< OOF X2 >70R Y2< 00RY2 >7THF N< 

440 

1250 IFA-5THENPRINTY2 + Z,".",X2 + Z," ", * Ir D( 1 > >0THENKU-1002*00T012 
60EI SEI 7-PEEK ( 16417 >» 19-PEEK < 16416) «KU-<Y?+7>*3+128+64*<Y2+l >* PR 

INT8KU, " , * POKE 1 64 1 7 , 1 7 *POK» 1 64 16 , 19 

1260 IFS( Y2 , X2 > -ZOR A»5ANDRND( 0) < . 15THENNEXT * DO TOl 300 
1270 IFA-ZTHENPRINT "BLOCKED BY ", 

1280 ONS< Y2, X2 > - 300T01360, 1330 

1 290 PR INTKt < IQ > , * IFA-ZTHE NGOSUB 900* GOTO 1370 

1300 F0RI-0T07* IFY2< >K1 ( I ) THEN1 320 

1310 IFX2-K2(I)THENK3(I)-0 

1320 NEXT *K»K-Z *K9«K9-Z * GOTOl 390 

1330 PRINT" STAR" , * IFA-5THENPR INT" ABSORBED "+T», *G0SUB80«00T0 

1420 

1340 IFU > RND (0) *P0/?THENG0SUB560*G0T01 140 
1350 G0SUB550* GOTOl 370 

1360 PRINT "ST ARB ASE" , * I FA-5THENB-2 * GOTOl 390ELSE IFU ) 1 THEN26 10 
1370 Y2»INT(Y1-Y>*X2-INT (XI -X> 

1380 S1-Y2*S2-X2*S(S1 ,S2)-2*G0SUB610* A-2*G0T0380 

1390 I7-PFEK( 16417) l 1 9-PEEK ( 164 16 ) * SS*»ST% * G0SUB20 *F OR I K - 1 T02 * PR 
INT8KU, MIDI < Q1 ( IQ) . S< Y2. X2 > *3-2, 3 ) , * U-USR (0>*PRINT8KU,STR 1NG% ( 3, 
191),* U-USR <0)*NFXTIK*P0KF16417,I7iP0KE16416,I9*PRINT" DESTROYED 
" , « U-USR ( 70 > +USR < 50 > 

1400 IFB-2THFNB-0*PR INTU5*B9-B9-7 

1410 S( Y2 , X2 > -7 * Q< Ql , Q2 ) -K • 1 00*B *PO+S* IFK9( ZTHEN2630 
1420 G0SUB640* IFE( 0THEN400 

1430 G0SIJB780* IFA»5TMEN380FLSEIFD( 1 > >0THENIX-1 *G0T0940ELSEG0TO94 
O 

1440 IFA-5THENPR INT"FALHOU" j lOOSIIBOO* GOTOl 420 

1450 T-T-T2*G1 = INT <Q1 ♦U* Y ♦ ( SI +T3 > /B > *Q2= I NT ( Q2+U*X ♦ ( S2 + T3 > /8 > 
1460 IFU1 ( 1 THE NU1-T2* GOSUB 860 

1470 Ql-Ql- (Ql (D) M Q 1 > 7 ) * Q2-Q2- < Q2( 0 > ♦ ( Q? > 7 > (G0T0310 
1480 1-3* IFD( 1 > >0THEN910 

1490 PR 1 NT TAB ( 22 > » * I NPUT"PHASERS RF ADY * Unit* to f i r e" , X * IFX ( -OT 
HEN 1420 

1500 I FX XE--E 1 > THENPR INTOS|E-E 1 *00 TOl 490 

1510 CLS*PR INT"* • • PHASERS SYSTEM FIRFD . . . " * PR I NT * G0SUB60 
1520 F a F-X*Y-K*FORI *0T07 * IFK3< I X -OTHE Nl 600 
1530 IFD( 1 ) >0THENX«X*RND(0> 

1540 GOSUB 50 * MN- 1 60 * MX- 330* DR *2 *G0SII830*H-X / ( Y*(FUCP4) > *K3( I >-K3 
( I ) H:E3-0*F4-Kf ( IQ) ♦" AT' *N-K3( I ) 

1550 GOSUB 750 * IFK 3 < I X-OTHENFS-KK IQ)»" DESTROYED »" *MN-240 * MX-1 
250* DR -l iGOSUB 30 *00T01 590 

1560 IFK >70RK3( I > >E 1 / 1000RRND ( 0 > ( P4 THEN 1 600 

1570 K3( I ) -0* IFRND( 0> ( T3THENF t-KS < IQ)»" EXPLODED" * MN-1 20* MX- 1 300 
*08-2 * GOSUB 30 (GOTO 1590 

1580 f 1“K%( IQ ) ♦ " SURRENDERS' : MN-1 50* MX-380 * DR-2* G0SUB30*T-T-T3*K 



4-K 4*7 

1590 PR !NTEt*K-K 7 *K9-KV-Z*S(K 1 ( I ) ,K2( I > )-Z *Q( Ql , Q2 > -Q< Ql . Q2 ) - 10 



0 

1600 NEXT *PR INT * IEK9( ZTHEN2620 
1610 OOSUBROJIFK >0THEN1 420ELSE380 

1620 T-T . 01 *PR INT8I J,Dt( 1 > ,"AT QUADRANT" ,Q1 *Z ,", ",Q2+Z, * IFI-i TH 



FNIX-O 



1630 RETURN 

1640 1-2* IFD( I > >0THFN9t0El SEIX-0 

1 650 Cl S * SSt-SC* * G0SUB20 * IJ-USR ( 260 ) * I J-64 * GOSIJB 1 620 * PR I NT * PR I NT * 
PR1NT*PRINT*F OR I -Ql 7T0Q 1 ♦ Z * FOR .J-Q2-7T0Q2* Z * PR 1 NT" ", 

1660 IFXOORI >70RJ(00R.I>7THENPR INT"***", *00T01720 
1670 Q( I. J)-ABS(Q< I . J > > * GOTOl 710 
1680 I«5*IFD(I> >OTHEN910 

1690 CLS * 1 J-64 2 PR I NT : GOSUB 1620* SS%-STt * GOSUB 20 » FOR IK -0T01 2 * U-USR 
( 1 ) ♦ USR ( 6 ) ♦ USR ( 11 >*NEXTIK*PR IN T * PR INT * G0SUB21 20 * PR I NT *F0RI-0T07* 
PRINT! » 1 , " x *F0R.J=0T07 * U-USR ( (I »1T*<JM ))*PRINT" ", 

1700 I F Q ( I ,JX OTHENPR I NT"* ••",* GOTOl 720 

1710 Ft-STR% < Q( l , J) ) «E4-"00"+MIDi(E»,2) *PR INTR IGHT*(E%, 3> , *GOSUB 
20 

1720 NEXTJsPRINT * NEXTI 

1 730 1FA-3THENF0R 1-0T07 *G0T0450*NFXT I *G0SUB80 *G0T0V30EL5EG0SUB80 
* I X- 1 *G0T093O 

1740 1 »7*CLS* I J-64 * GOSUB 1620 * PR INT * MN- 1 40 * MX -940 * DR - 1 * GOSUB 30 *F0 
R I -0T06*PR INTDi ( I ) , TAB ( 21 ) , -D( I ) *NEXT *PR INT"LAST CENTONS", TAB (21 
> ,T* IFK >OTHE N930 

1750 PR INT" INIMIGOS"+FS j TAB(21),K9*PRINTs INPUT "CENTONS para REPA 
ROS" ,U1 * IFU1 (0THENW1-0* IFRNDl 10 ) <5THEN5000ELSE 10000 
1760 T-T U1 :GOSUB06O* IFK-0THEN1X-1 SG0T0930ELSE380 
1770 1-6* IFD( I ) >0THEN910 

1780 INPUT" UNITS TO SHIELDS" , N * IFN >E-E l THENPR I NTOf , E *G0T01 78 



0 

1790 C1-EXN*IFE1 ( OTHENE 1 -0 

1 800 PR 1 NTDS ( 6 ) ♦ J% , E 1 | * GOSUBBO * I FK -0THEN380EL S^IX-1 * G0T0930 
1810 SES«""*STS= ""*SC5-""*SN5-""*CR»-""*GR%-"" 

1820 FOR I-l T030*RF AD J*SE%-SEf +CHR% ( J ) *NEXT I 

1030 DATA205, 127 , 10 , 62 . 1 , 21 1 , 255, 237 , 95, 230, 255, 246 . 0 , 87 , 71 , 16,2 



54.62.2.211.255.66.16.254.43.124.181.32.230.201 
1840 FOR I-l T050 * READ J* STS-ST4+CHRK J ) (NEXTI 

1 850 DAT A20S .127,10,125, 254 , 255 ,40,38,79,46,160,65.58.61,64, 238 , 
2 , 50 , 61 , 64 , 21 1 , 255 , 16 , 252 , 45 . 125 , 183 , 32 , 238 . 180 , 200 , 68 , If 7 , 205 , 2 
27,3,193,225,183.192,126,35,229.96.24,218,68,24,247,32 
1860 F0RI-lT030*READJ*SCf-SCf+CHRS(J> INEXTI 

1870 DATA205, 127, 10,62, 1 , 14,255, 12,237,91 ,61 ,64,69,47,230,3. 183, 

211.255.13.40.4.16.246.24.242.37.32.241.201 
1880 FOR I-l T026*READ J* SNt-SNS+CHR%( J > (NEXT I 

1 090 DAT A205 , 1 27 . 1 0 , 62 , 1 , 2 1 1 , 255 , 237 , 95 , 87 , 71 , 1 6 , 254 , 62 , 2 , 21 1 , 25 

5.66.16.254.43.124.181.32.234.201 

1900 FOR I-1T020*RE ADJ»CRi-CRS+CHRS(J> *NEXTI 

1910 DAT A205, 127, 10,1,255,63,125,2,11,120,254,59,32,248,121,254, 

255.32.243.201 

1920 D I HDDS ( 9 ) * FOR I J-0T09 * READDDK I J ) INEXTIJ 

1930 DATACOMMANDS .ENGINES , S . SENSORS , L . SENSORS , PHASERS ,MI8SI 
LES .GALAXY .SHIELDS .DAMAGE .EMERGENCY 
1940 F OR I-l T029 (READ JiGRf-GRl+CHRi( J > INEXTI 

1950 DATA33, 0.60, 126,254,32.32,4,54,191 , 24 , 10,203, 127 , 40 , 6, 47 , 23 

0,63.198.128,119,35.62,64,188.32.231.201 

I960 RETURN 

1970 CLS* FOR I J-OTOlt *PR INT8IJ*64. STRING* (64, CHRK 191 )) , INEXTIJ 
1980 FOR I J- 1 T 08 * IFD< I J-i ) > OTHENPR INT3113+64*IJ," • ",DD1(IJ>|" " 
, INEXTIJ ELSEPR INT3113+I J*64 , I J | DD% ( I J > j " " , *NEXT I J * PR INT3689 , " 

9 " pDD%( 9 ) | " ", *PRINT3113," 0 ",DD*(0>, 

1990 RETURN 

2000 CLS*PRINTTA8< 18)"** COMMAND CHOICES •«" 

201U PR INT"0 HELP* Comando* e Dices." 

2020 PR INT"1 Navcgacao tern direcao (0T0360 graus) A UAHP velocid 
ade." 

2030 PR INT"2 Short Range Sensor mostra o conteudo atual do guadr 
ante." 

2040 PRINT"3 Long Range Sensor detects a presence nos guadrantes 
vizinhos de Inimigos, Bases, Estrelas." 

2050 PR INT"4 Phaser*, si sterna de atague d I «t r I bu i do. " 

2060 PRINT"5 Photon Missiles, sistema de atague dirigido." 

2070 PR I NT"6 Galactic Records atual iza images da galaxia." 

2080 PR INT"7 Shields de protecao. (Cuidado* Os campos de proteca 
o atracm os missels inimigos)." 

2090 PR INT"0 Danos e sistema de Reparos." 

2100 PR INT"9 Chamada* de EMERGENCIA. (Na pior...)." 

2110 SSS-ST4 *G0SUB20*PR INT3960, "HIT , * U-USR ( 100) * IF INKE Y%-""T 
HEN21 10ELSE380 

2120 FOR IK -4T032STEP4 *PRINTTAB( IK + 1 ), ( IK >/4 , l NEXT IK * RETURN 
2130 PR INT3B3? , "TAKE CARE* LOU ",G»," LEVELS." ,CHR*< 30) , *MN-170 
* MX-1 320* DR-2 iGOSUB 30 * RETURN 

2140 GOSUB 2300 * PR I NT38B , " • SPACE UARP * " , *PR INT31 92 , "D A N G E 
R * ",EN%," GETTING OUT OF GALAXY. " 

2150 PR I NT 3320 , "Nl U GALAXY QUADRANTS " , Ql ♦Z , " , " , Q2-* Z 
2160 PRINT3448,"P0TENCIAL ENERGY DANGER LEVELS"," ", 

2170 J-RND ( 26 > +64 *PR I NT3576 , ENA , " MUST REVERSE ",Df(0> 

2180 PRINT3576, "PRESS URGENTLY ",CHRf( J> ,CHR*(30) *G0SUB2320* IFAS 
( )CHRS( J) THEN2200 

2190 PRINT "UARP REVERSED" * SS% = STt : G0SIIB20* FOR 1 K-24TO0STEP -2* U-US 
R( IK > * NEXT IK (RETURN 

2200 Ql -Ql - Z*Q2»Q2-Z * T»T-P1*IFT( -0THEN2600ELSE21 50 

22 1 0 G0SUB2300 * SSS-CRS* G0SUB20 * U-USR ( 45 > +USR ( 42 ) +USR ( 46 > 

2220 PR INT374, "0 A N G E R",TAB(94>," • ION STORM • " 

2230 PRINT31 92, "ANTI- MATTER GENERATOR OVERLOAD" , TAB ( 40) ,G* , " LEV 
EL DECREASING" 

2240 PRINT3320, "TOTAL ",G1,E," SHIELDS*", El 

2250 J-RND ( 26 ) +64 * PR INT3448 , EN% , " MUST DOUN GENERATORS* PRESS " 
,CHR%( J) 

2260 G0SU82320 * PR 1NT3448 , CHR» ( 30 ) 

2270 IFA5-CHRS! J) THENPR INT "GENERATORS CONTROL ED" * RETURN 
2280 E-E -50+50*EXP ( -T ) * IFE( -0THEN2610ELSEIFE ( E 1 THENE 1 -E 
2290 SS5-GRS * GOSUB 20* FOR I-l T04 * U-USR (0)*F0RIK-1T010* NEXTIK * U-USR 
(0) *FOR IK » l TOl 0 *NF X T 1 K * NEXT I * GOT 02240 

2300 FOR IK -1 T06*SS5-CR% *G0SUB20*U-USR ( 32) * SS5-STf*00SUB20*U-USR ( 
I K • 4 ) * SSt-CRf * GOSUB 20 * U-USR ( RND ( 64 ) ♦ 1 27 ) * SSS-ST % * G0SUB20 * U-USR ( I 
K*4'7> INEXTIK 
2310 RETURN 

2320 FOR IK«1T0100*A1<*INKEY%* IFAl-CHRS ( J ) THENRETURNELSENEXTIK *RET 
URN 

2330 CLS* I J-21 *E*-"E M E R G E N C Y"*00SUB120 

2340 PR INT *PR INT"0 COMMANDS" *PR INT"1 INTERSECTOR R ADAR " * PR I NT"2 
INTERGALACTIC RADAR " *PR INT"3 SOS BASE COMUNICAT ION" * PR INT"4 ANT 
I -MATTER PLANET FOR RECHARGING" * PR INT"5 SURRENDER" *PR INT"6 AUTO 
DESTRUCTI0N"*PRINT"7 BLACK HOLE" 

2350 PRINT'S ENEMIE REPOR T" iPR INT"9 RECARREGAR CRISTAIB DE LITIU 
M. DEPOSITOS-", IC*PR INT"* Sr Spock lembra perdas de Encrgia e Te 
apo elevadas...."*PRINT*CT-K5 

2360 CT-CT-i * IFCT-0THEN380EL SEPR INT3896, "(ENTER >7", *AQ-INKEY%* IF 
At-""THEN2360ELSEAA-VAL ( At > sPR INTAA , t IFAA( OOR AA >9THEN5000ELSESS% 
-STHG0SUB20 

2370 IFAA-0THEN2000EL SE0NAAG0T02380 , 2430 , 2440 , 2450 , 2480 . 2490 , 250 
0,2560,2700 

2380 CLS »FOR IK-0T095*SET< IK.O )* SET (IK, 47) INEXTIK *FOR IK-0T047 * SET 
(0,IK)*SET( 96, IK)* NEXTIK 

2390 FOR I-0T07 iFOR J-0T07 *I7-I*128+J*6+2*I9-I7+64 * U-USR ( 10 ) I IFS ( I 
, J>-1 THENPR INT3I7.STR I NGi(2, 176) , IPR INT3I9, STR ING» ( 2, 131 ) , iNEXTJ 
, IELSEPRINT3I7-2, STRINGS 6, 191 > , * PR INT3I9-2 , STR ING%( 6. 191 ) , iNEXT 

2400 1 7-SI *l28+S2*6 + 2 *I9-I7 + 64*PRINT3I7,STR ING%( 2,143), * PR I NTS 1 9 
, STR INGf (2, 188) , 

2410 PR INT350, ENf ,*PRINT3tl4,"Q*",Ql+Z,",",Q2+Z,*PRINT3178,"Sl", 
S1 + Z,",",S2 + Z, * PR INT3497. "SECTOR RADAR", 

2420 PRINT 3945, "HIT..", IG0SUB2580* IFIK-9THEN1420ELSET-T-1 iE-E-10 
OlCLSHX-1 IG0T0950 

2430 CLS * PR I NT "QU ADR ADAR" , TAB ( 40 )EN%, " Ql",Ql + Z,",",Q2 + Z*PR INT* I 
NPUT"UHAT QUADRANT TO RESEARCH ( Ql , Q2 ) " ,L , M* PR INT *PR INT"RADAR SC 
AN. . IFOR IK-20T040IU-USR ( IK) INEXTIK IPR INTQ(L-1,M-1 ) 

2431 FOR I-0T07 IFOR J-0T02* I 1-404+3* I +J* IF J-l THENPR INT3I I, CHR*( 140 
), * PR INT31 1+576, CHRS( 140 ), ELSEPR INT3I I, CHRS( 188 ), IPR INT31 1+576. C 
HRS( 143) , 

2432 NEXTJ,I*FOR I-0T07 *PRINT3467+I*64 , CHRt < 183) , IPR INT3492+I *64 , 
CHR»(187), INEXTI 

2433 JJ-Ql*64+Q2*3+47 1 

2435 F0RJI-lT02*F0RI-0T07*F0RL-0T07i IFABS(Q( I ELS 

EAI-" " 

2436 FOR J-0T02* I 1-469+ I*64+L*3+J*PR INT3I I ,CHRf ( 191 ) , * IFJ-1 THENPR 
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QUASAR IV: UMA AVENTURA COMPILADA 



5023 U-USR (-2000) (F0RIJ-lT020iPRINT3512,E*,*U-U8R( 100) (PRINT3512 
, "NAVE G AC AO * Control** <Z,X> • <<,>>. Penetr-ndo no c*-po d«..." 
IU-USROOO) iNEXTIJ 

5030 CLS *PR INT3464 , CHR*( 23 ) , "< < QUASAR IV) >"*G0BUB10360 

3035 IFPEEK ( 16549) >80THENDEFUSR--10900ELBEP0KE 16526, 108 (POKE 1632 

7,213 

5040 CLS«U-USR(0)«XFI-OTHEN2610 

5045 CLS*PRINT3968, "SENSORES* Indlcaa dlfttorcao vapacial ultrapa 

••%d-...",*El-El-100*G0SUB80»A*-INKEYStG0T0380 

3100 F0RI7-1T030*NEXTI7*RETURN 

6001 X*-" 123456 7890 1234567890 1234567890 1234567890 1234567890 12345 
A 7 8901 2345&7890" 

6002 Y*-" 1234567890 1234567890 1234567890 1234567890 1234567890 1234" 

6003 1 1-PEEK < VARPTR ( X* ) *1 ) * 12-PEEK < VARPTR ( Xf > *2 ) « X 1 -I1^I2*256 

6004 1 1 - I I ♦< 1 1 >32767 > *65336 

6005 POKE 16422, X 1 (POKE 16423, 12 

6006 Jl-PEEK ( VARP TR ( Yt > ♦ 1 > * J2-PEEK < VARPTR ( Y* > *2 ) * J I - J1 ♦ J2«»256 

6007 POKEI l+l,JliPOKEXI -*2, J2* RETURN 
10000 G0SUB45ICLS 

10030 GOSUB 10400 

10040 PR INT"A LERTA VERMELHOI CURSO OE C0LISA0I AT 
ENC AO l " i OOSUB 1 0400 1 GOSUB 1 0400 1 GOSUB 1 0400 

10050 PR INT"SENSORES * INDICAM PRESENCA DE MINAS E8PACIAIS A FREN 
TE I " * GOSUB 1 0400 1 GOSUB 1 0400 * OOSUB 1 0400 

10060 PR INT"COMPUTADOR * MANOBRAS EVASIVAS INEFICAZES. RAIOS TRAT 
OR ES I " * GOSUB 1 0400 * OOSUB 1 0400 1 GOSUB 1 0400 

10070 PR INT"ENGENHAR I A* TELAS ATIVADA3. VELOCIDADE RELATIVA A"|R 
NO(B),"e LUZ." (GOSUB 10410 

10080 PR I NT "SENSORES* DISTANCI A" ,RND ( 900 ) , "MGM. MINAS ANTIMATER I 
A KLINGON." (GOSUB 10410* GOSUB 10410 

10090 PR INT"ENGENHAR IA* FORCA AUXILIAR LIGAOA. VELOCIDADE REOUZI 
DA. "» GOSUB 10420 

10100 PR I NT *PRINT"COMPUTADOR * A T E N C A 0 « MANOBRAS MANUAIS < 
UP > e (DOWN >..."* GOSUB 10420 
10110 GOSUB 10350 

10160 U-USR < -3000 > * U-USR < 30 > * IX- 15872* I Z-O* CL S* GOSUB 10220 * GOSUB 1 
0280 *P0KEIX+1,32*P0KEIX,62*F0R I-1T0250* NEXTI * U-USR ( 30 > iPOKEIX , 32 
*P0KE16672,S 

10170 IY-PEEK < 14400) * IFIY-8THENIX-IX-65* IFIX< 15360THENIX-IX^63*G 
OTO 10200 

10180 IFI Y-16THENI X-IX+63* IF IX > 1631 7THEN IX- IX -63* GOTO 10200 

10190 IX-IX + 1 *IFPEEK(IX)< >32THEN10210 

10200 P0KEIX,62*P0KEIZ,32*IZ-IX*F0RI-1T0ZL*NEXTI 

10210 IFPEEK < IX ) -42THEN10300ELSEIFPEEK < IX>-46THEN10330ELSE10170 

10220 ZR-15360 

10230 NN-10*5*IE 

10270 IR«RND(NN)*2(ZR-ZR*IR*IFZR>16379THENRETURN ELSEPOKEZR , 42*G 
OT010270 

10280 IU-63*F0RI-lT08*PRINTaiU, STRING* (!,".">» * IU«IU*63*NEXTI * IU 
-IUM *F0RI-8T02STEP-1(PRINT3IU.STRING*(I."."> ,*IU-IU465«NEXTI 
10290 RETURN 

10300 ZB-1 *POKE 16672 ,6 *POKEIX ,191*P0KEIX*1,140*P0KEIX-1,140*P0KE 
I X-64, 176* POKE 1X^64, 131 * U-USR < - 190 ) * U-USR ( 15) * U-USR < -2000) * U-USR 
(90) 

10310 POKE IX, 166*P0KEIX*1 , 1 36*P0KEIX-1 , !32*P0KEIX-64 , 1 64 fPOKEIX* 
64,1 37 * U-USR < -900) * U-USR (100) * U-USR < -1000) rfU-USR < 300) * U-USR <-100 
)* U-USR (200) 

10320 P0KEIX,132»P0KEIX*1,128*P0KEIX-1, 128 *POKEI X -64 , 1 28 * POKE I X^ 
64, 128* U-USR < -1000) *U-USR( 200) SPOKE IX, 128*U-USR< -5000) *U-USR< 200 
) (CLS* G0T02610 

10330 ZB«0*CLS*PR INTCHR*(23) *FOR I -1T04 * PR I NT3256 , "SUCCESSFUL PAS 
SAGE" *U-USR< 8000 ) *U-USR< 30) *PRINT3192," 

" *F0R J-l T01 00 *NEXT J , I 

10335 PRINT3256.CHRK30),"Dif iculdade *u-ent ando. . ." 

10340 G0T010390 

10350 CLS*PRINTCHR*(23> (PR INT3464 , "< < < IMPACTO >>>" 

10360 FOR I-80T020STEP-1 *U-USR < -200) *U-USR < I ) * NEXTI *FOR I-19T01BTE 
P-1 * U-USR ( -500 ) » U-USR <I>* NEXTI 

10370 I J-8?8*E*-"MAN0BRAS EVASIVAS EM MANUAL (GOSUB 120* PR I NT 

3898 . STR ING*( 50," "), 

10375 IJ-910*Ef-"ABRIR TELA VISUAL"*G0SUB120*G0SUB80*G0SUB45 
10380 RETURN 

1 0390 GOSUB 1 0430* A*- INKEY* * G0T0380 

10400 FOR I - 1 T03 * U-USR ( -3000) * U-USR ( 80) *FOR J-1T030*NEXT J, I : RETURN 
10410 FOR I-1T06* U-USR < -2000) * U-USR < 10) * U-USR ( -3000 ) * U-USR ( 80 ) *F0 
R J- 1 T 030*NEXT J, I * RETURN 

10420 FOR 1-1 T07 *FOR J-l T020*U-USR < -100 ) * U-USR ( J) *NEXTJ, 1 *RETURN 
10430 ZR-l 

10460 FOR 1-1 TO 100* NEXTI 

10480 FOR 1-1 TOZL * U-USR < -2000 ) * U-USR ( 20 ) * U-USR < 15 ) * U-USR < 20 ) *U»US 
R ( -5500 ) * U-USR (15)*NEXTI*ZL-ZL + l*IE»IE-l*IFIE-0THENIE-l*ZL-6 
10490 IFZL -6THENIR -15360 *CLS*PR INTCHR»< 23 ) *PRINT344B, "Sor t * , por 
enquant o." (GOSUB 10540* A*- INKEY**G0T03BO 
1 0500 P OK E 1 6772 , 1 02 « U-USR < - 10000 ) * U-USR ( 20 > * U-USR < 1 3 ) * U-USR ( -300 
0) *F0RI-1T02*U-USR < 15) * U-USR < -1000) * U-USR ( 16) * U-USR < -3000 ) (U-USR 
< 1 8 > * U-USR ( - 1 0000 ) * U-USR < 10 ) * U-USR ( 1 3 ) * U-USR < - 3000 ) * NEX T I * U-USR < 
-3000) *U-USR< 15) *U-USR < 16) * U-USR (15) * U-USR < -30000) 

10510 U-USR < 18 ) 

10520 RETURN 

10530 C 1-22 * GOSUB 1 0550 *Ct -18* GOSUB 10550 * C 1-15* GOSUB 10550 *C1 -12 *G 
OSUB 10570*C1 -10 * GOSUB 10570* U-USR < 9 ) *FOR I -1 T01 00* NEXT I (F0RK-1T02* 
GOSUB 1 0500 sNEXTK * U-USR t -500 ) « CLS 

10540 U-USR < -300) *FOR I-40T01STEP-1 * U-USR ( I ) * NEXTI (RETURN 
1 0550 U-USR < - 1 0000 ) * GOSUB 1 0590 * U-USR (Cl)* GOSUB 1 0590 * U-USR ( -2700 ) 

* OOSUB 1 0590 * U-USR ( C 1 ) * GOSUB 1 0590 * U-USR (Cl)* GOSUB 1 0590 * U-USR (-100 
00) (GOSUB 10590* U-USR (Cl ) * GOSUB 10590* U-USR ( -2700) * GOSUB 1 0590 *U-US 
R ( Cl ) *G0SUB10590*U-USR(C1 ) * GOSUB 10590* U-USR ( -6000 ) * GOSUB 10590 
10555 U-USR (Cl) 

10560 GOSUB 10590* U-USR ( -8000 ) * OOSUB 10590* U-USR (Cl )* GOSUB 10590 * U« 
USR (Cl ) tGOSUB 10590*U-USR ( -2700) (U-USR (Cl ) «U-U«U-USR (Cl ) *U-U*U-US 
R (Cl ) *RETURN 

1 0570 GOSUB 10590 * U-USR ( -22000 ) * GOSUB 10590 * U-USR ( Cl ) * GOSUB 10590 * U 
-USR ( -2700 ) * GOSUB 1 0590 * U-USR ( Cl ) * GOSUB 10590* U-USR ( Cl ) * GOSUB 10590 

* U-USR ( Cl ) * GOSUB 10590 * RETURN 

10590 PRINT3472,"Ea breve* Buasar V."*0UT255,0* IR-15360«>RN0( 1000 
) (POKE I R ,253* IS-15360*(RND(500)a2) * POKE 1 8, 254 

10600 PRINT8472,STRING*(20," "> , * 0UT255 , 15«RETURN | 



INT3II1 . A*,ELSEPRINT3II-1." ", 

2437 IF 1 1 - J JTHENPR I NT3II-3, "(♦)"» 

2438 NFXTJ,L*PRI NT 311-24, STR ING*( 24 , 128 ) , 

2439 NFXTI (NEXT JI *E»E-200* T-T - 1 *G0T0380 

2440 CLS*PRINT"0» covardci nao v i ve-. . *PR INT : G0SU880*PR INT"U- 
qay far i a cotl* -r Ihor ... " *G0SUB80*CLS* I J-24*E*“"a( SOS BASE )»" 
(GOSUB 120 (PR I NT (PRINT "Alert* vrraclho coaunicado ’a Frota Eatcla 



Decida sem duvidas, erros de informagao, falhas de estoque 
ou vacilagdes nas entregas. 

— Completa linha de instrumentos de teste e medigao. 

. — Garantia de ate 2 anos. 

•■' a — Assistencia tecnica propria permanente. 

EL — Sistema inedito de reposigao quando em 
rat garantia. 

K|fe — Atendimento personalizado para Jt • 
todo o Brasil. 



2442 FORI -0T03* FOR J-0T03 * KC ( I , J ) -RND( 101 ) - 1 *NEXT J, l *PR INT"An» l is 
c do* codigos de Tran»-i*»*o (X d* Incert ez* ) *" *PR INT"CODE K 



2450 CLS*S3«RND< R> -1 *S4-RND<8)-t * IFS(S3,S4)< > 1 THEN2450ELSEPR INT" 
NEAREST ANTI MATTER PLANET AT SECTOR * " ,S3+Z " *S4«-Z *PR I NT "UNDE T 
ECTABLE BY SRS" *PR INT *PR 1 NTf M* , HAS 20X CHANCES TO EXPLODE IN 0 
RB IT EACH 400 MEGAJOULES OF REFUEL" *PR INT 

2460 PRINT"(V/N)?"*G0SUB2580* IF IK-9THENI 420ELSEU-USR (50) * IFA»( >" 
Y"THENT-T-.5*E-E-50*GOT0380ELSEI J-44B*E*-"0RB IT * "(GOSUB 120* PR IN 
T"PRESS 'Z* TO STOP REFUEL * SI -S3*S2-S4 

2470 PRINT 35 1 2 , G* ; " LEVEL " »E * IFRNO( 0) < ( ZL/20) THEN2610ELSEE-EM00 

• T-T- . I * IFINKEY*-"7 'THEN380ELSEI OR IK-1T020*NEXTIK (G0T02470 

2480 CLS*IFRND(0)( .5THENPR INTK*< 10) Nao ace i t ar »•" * G0SUB80 * T-T 
- 1 * G0T0380ELSEPR INT"OK « , RNDi 3000 ) » "Cap t ur ados . SCORE 0 1 " * STOP 
2490 CLS*CT»10*F0R I -10T00STEP -1*PRINTI,*F0R IK-1 T030*U-USR ( IK^5) * 
NEXT IK (NEXT I (G0T02610 

2500 CLS*PRINT"MANUAL CONTROL TO ESCAPE THROUGH A BLACK HOLE*"*P 
R INT" ( Z , X ) AND (<,))"* PR INT * PR INT"MI NIMAL CHANCES .( Y/N )?"* G0SUB2 
580* IFIK-9THEN1420ELSEPRINT3426, "TRAVEL TIME*"*IFA*( >"Y"THENT-T- 
1 *G0T03B0ELSECT-99i VL-46* VM-24 

2510 FORI -0T08 *FOR IK-22>2- 1 T069-2* I * SET ( IK , 13* I > *SET( IK ,35-1 ) *NE 
XTIK*F0RIK-13+ IT035- I *SET(22+2*I.IK)»SET(69-2«I,IK)*NEXTIK 
2520 FOR J-1T01 1 * V1-RND( 3)-2*V2*RND( 3) -2 * RESET ( VL , VM) *VL-VL»V»/2* 
VM-VM* V2/2* IFPOINT(VL.VM)--! THEN2610ELSESET ( VL , VM) 

2530 17-PEEK ( 14344 ) * 19-PEEK ( 14368) *V2-0* IFI7-1THENV2-1ELSEIFI7-4 
THENV2— -1 

2540 Vi -0* IF 19-64 T HENV1 -1EL SEIF I9-16THENV1 •- 1 

2550 RESET ( VL.VM) *VL -VL^Vl * VM-VM+V2* IFPOINT( VL , VM)--1THEN2610ELS 
ESET( VL , VM) * U-USR (20) *PR INT3439,CT» " ", iCT-CT-1 *NEXTJ, I *E-E-300 

*T-T-3*G0T01 140 

2560 CLSiPR INTK*( 10) SENSORS" *PR INT *FOR I -QT07 i IFK3( I ) ( -OTHENNE 
XTIELSEPRINTIM ,K1 ( I )+Z|","»K2(I)-*Z,G*»K3(I)*NEXTI 

2570 PRINT:PR IN TEN*, " SECTOR *" ,S1 ♦Z S2+Z *E-E-100* T-T-l *PR INT 
"HIT.."* GOSUB 2580 * I F I K -9THEN1 420ELSEGOT0380 
2580 CT-K5* IK-0 

2590 A*- INKEY** IFA*«""THENCT»CT-1 * IFCT-OTHENIX-1 * IK«9*RETURNELSE 
2590ELSERETURN 

2600 CLS*PRINT »SS*-ST* * GOSUB 20 (FOR IK-1T0K/2*10*I -RND( 6 ) * J-RND ( 9 ) 

* U-USR ( I ) ♦USR ( J ) ♦USR (9)*NEXTIK * PR I NT "VOCE NAO E' ETERNO. Acabou 
o TEMPO. "*G05U880*G0T02620 

2610 CLS*E»0*PR I NT (PRINT *MN-1 70* MX-1320 * DR- . 3«F0R IK»1T05*G0SUB30 
* NEXT IK *SS*-SN* * GOSUB 20* U-USR ( 2000 ) *PR INTEN*, " DESTROYEDI AH, AH 

• • • AH • 04 

2620 I FK9-00R T ( -OTHENCLS * GOSUB 45 * GOSUB 1 0530 * CLS 

2625 I J-384»E*-"FR0TA ESTELAR * "* GOSUB 120* PR INT * PR I NT "Aval I acao d 
o co-andante da Ent erpr I se * " *PR INT"In I — i gos v 1 1 or i osos * " ,K9 
2630 IFE 1 ( »OORE( -OTHENN-OELSEN-INT ( (50* (K0-K9 ) /K0)>( 15aK4/K0) ♦( 1 
5«T /TT > ♦(20/LV) ) 

2640 PRINT *PR I NT "YOUR INFINITESIMAL RATING* " , N * IFN )79THENPR INT" 
Fal ha tecnica... "ELSEIFN >59THENPR INTW*ELSEIFN( 40PR INT"CONDECORAC 
AO* Corte Marcial • "ELSEPRINT"CONDECORACAO* Quia sabe e- outra o 
por tun i dade. . ." 

2645 LPRINTtEND 

2650 FORI -0T07 * U-USR ( 10 ) *F0RJ-0T07 * U-USR ( 20) 

2660 JII-ABS(0(I,J)/100)-ABS(FIX(8(I,J)/100))*IFJII >-. 10THEN2680 

2670 N PRINT"...INTERFERENCIA INIMIGA IMPEDE RECEPCAO I " * G0T02695 
2680 PRINT" X.Y-",(IM)e(JM)f" X + Y-" , !♦ J*2 *G0SUB80*G0SUB80* T-T 
-1 iE-E-100* IFRND(101)-1)-I ITHEN380 

2690 «( I , J)-0( I , J)-10*B9-B9-1 * I J-960*E*-"ALERTA VERMELHO"* OOSUB 1 
20*PRINT *PRINT"FROTA ESTELAR INFORMA ... BASE DESTRUIDAI," 

2695 G0SUB80IG0T0380 

2700 CLS* IFIC-OTHENPR INT"SR . SPOCK* Nao ha'-als dcpositoa de cr I 

• t a i • de 1 it iu- 

dispomveia na galaK»a."«G0SUB8O«T-T-l*G0TO380 

2705 PRINT'ENERGIA. .*",E*PRINT"SHIELDS..»",E1*PRINT"INIMIG0S.(", 
K9iPRINT"DEP0SIT0S*",IC 

2710 PRINT tPRINT"Deaeja tentar a traveaala da Zona Neutra no Mod 
ulo de Servico 

para alcancar u— depoaito de Crlataia de Litiu— (Y/N)?"*00SUB258 
0 * IF IK -9THEN1420EL SE INPUT "Mega Jou 1 ca p/ o Modulo de Servlco"»I 
2720 IF I )-ETHENPR INT *PR INT"IMPOSSIVEL I I " * G0SUB80* T-T- . 5«G0T0380 
2730 GOSUB 45 *E»-STR ING*( 50, 32 ) * U-USR ( -2000) *FOR I J-l T010*PR INT397 
0 ,E*| * U-USR ( 100 ) * PR INT3970, "NAVEGACAO* Controlea (Z,X) e <<,>>. 
Atencao. . ."» (NEXTIJ 

2734 IFPEEK ( 16549 ) >80THENDEFUSR—5300ELSEPOKE 16526 , 76* POKE 16527 , 
235 

2735 E-E-I *U-USR(0) *GOSUB0O 
2740 IC-IC-i*E»E+I (T-T-l *00T0380 
2800 CLSiPR INT"Co— eca-oa -al . . ."*G0SUB80*G0T02< 

5000 CLS > I J-468 *E»-"( DANGER >"*G0SUB120*I 
( 64 , 128 ) *CLS 

5005 FORI J-tT03*PRINT30,E*f * GOSUB 5 1 00* PR INT30,' 
ao I Atencaol Foco de particulaa gr av 1 t ac i ona i a 

5010 FOR I J-t T03 *PR INT3128 ,E* , * GOSUB 51 00 * PR INT3128 
ko gr av I t ac i onal forte-ente concentrado."*G0SUB10< 

5015 FORI J-1T02*PRINT3256,E», *GOSUB5lOO*PR INT3256 
otorea detratorea Inauf ic ientea. Telaa ativadaal": 

TIJ 

5020 FORI J-l T02* PR INT3384,E*i *G0SUB5100*PR INT3384 
lo-erado Globular Neutronico. Centro co-put ado. "*l 
IJ 



SUPRIMENTOS 

CPD 



INFORMATICA 



* Unimos o util ao agrada 
vel: qualidade/prego. 



* Ponha-se em dia com o 
futuro. 



Pronta entrega para todo 
o territorio nacional. 



M i crocompu tadores 
Prologica. 



Estoque com os mais 
variados produtos. 



Assistencia tecnica 



propria 



— . Fitas impressoras 
Formularios 
Etiquetas 
. Disquettes 
. Mesas 

. Estabilizadores 

. M odens 

. Pastas para 
formularios 



— Revendedores em todo ’ 
o territorio nacional com a 
melhor assessoria para ampa- 
ra-lo no momento de decisao 
mesmo que voce so precise 
de uma informagao mais 
precisa sobre os i 4 

equipamentos. || 



AJUDANDO 
A DESENVOLVER 
TECNOLOGIA 



VISITE NOSSO SHOW-ROOM OU 
SOLICITE NOSSO REPRESENTANTE 



FILCRES ELETRONICA ATACADISTA LTDA. 
Rua Aurora, 165/171/179 — Sao Paulo — SP 
PBX: 223-7388 

Vendas Sao Paulo — Tels.: 220-7954/222-3458 
Vendas outros Estados — Tels.: 223-7649/221-0147 
Telex: 1131298 



COMPUTADOR* Atenc 
" I GOSUB 10400 * NEXT 
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A memoria do equipamento possui alguns truques que apenas com uma 
analise mais profunda e possivel descobrir, como vamos ver neste artigo 



Apple: 

o mapa da ROM 

A Ido Felicio Naletto Junior 



A partir deste numero, em ti£s 
artigos sucessivos, o leitor fi- 
card mais familiarizado com 
as rotinas da memdria ROM 
do Apple. No primeiro trabalho hd uma 
introdu^o mais ou menos teorica. Na 
prdxima edi 95 o apresentaremos o mapa 
das rotinas da ROM e encerraremos o 
artigo com um mapa geral sobre a di- 
tribui^o da memdria. 

As rotinas das ROMs do Apple for- 
mam um autentico labirinto de Creta, 
como na mitologia grega, onde o usu- 
£rio, se nXo agir como Teseu, guiando-se 
com um novelo de Iff para chegar ao mi- 
notauro e voltar, pode se perder. Com o 
trabalho que agora apresentamos, em 
sua primeira parte, procuraremos ofe- 
recer informa^Oes para utiliza^So mais 
proveitosa do computador. 

Antes de mais nada e necessdrio sa- 
ber algumas coisinhas a respeito dos 
critdrios de ocupa^o de memdria do 
Apple. Basicamente, os 65536 endere- 
90 s que o 6502 pode aces$ar s£o di- 
vididos em quatro faixas, na seguinte 
sequential 2 Kb para a memoria do sis- 
tema, 46 Kb para os programas e va- 



* Nota do autor: Voce conhece a lenda de Te- 
seu e o Minotauro ? Bern, Teseu foi encarre- 
gado de penetrar no intrincado labirinto de 
Creta e matar o Minotauro, um monstro de 
cabefa de touro e corpo de homem que mora- 
va Id. Teseu ndo tinha o mapa do labirinto e 
por is so levou um novelo de Id que foi desen- 
rolando pelo caminho. Assim, Teseu matou 
o Minotauro, seguiu o fio atd a saida do labi- 
rinto e entrou para a histdria. 



ridveis do BASIC, 4 Kb para entrada e 
saida e 12 Kb para as ROMs (ou 
EPROMs) do interpretador e sistema 
operacional. 

A mem 6 ria do sistema e ocupada da 
seguinte maneira: de $00 a $FE fleam 
as varidveis do sistema; de SFF ate 
$10F, um buffer que £ usado pelo 
BASIC para traduzir valores binarios 
para strings (como na fun^o STRS); 
de $110 at<* $ 1 FF, a pilha do sistema 
e do BASIC (guarda principalmente 
dados de FORs, endere 90 S de retomo 
de sub-rotinas e resultados interme- 
diaries de expressdes); de $200 a 
S2FF, o buffer do teclado (onde sSo 
armazenados os caracteres que digi- 
tamos durante as entradas de dados, 
linhas de programa ou de comando); 
de $300 a $3FF fica a area de veto- 
res (na verdade, os vetores s 6 ocupam 
esta drea a partir de $3EF — ou 
$3CF, caso o DOS esteja presente - 
e o resto fica livre para o usuario) e 
de $400 ate $7FF a memoria de video. 
Esta servp basicamente para armaze- 
nar as 24 linhas do video, o que e fei- 
to pelo Apple segundo uma seqiiencia 
toda esquisita: em $400 come 9 a a 
primeira linha, a qual £ seguida pela 
nona em $428, pela de'cima-sdtima em 
$450 e em $478 por oito bytes que 
s£o reservados para uso do cart£o que 
ocupar o slot 0 (estes bytes nffo apa- 
recem no video), em $480 come 9 a a li- 
nha 2, que e seguida em $4A8 pela li- 
nha 10, em S4D0 pela 18, e em $4F8 
pelos oito bytes reservados ao slot 1 . 



Em $500 temos a seqiiencia de linhas 
3, 11, 19 e os bytes do slot 2, e em 
$1580 as linhas 4, 12, 20 etc. 

Os 4 Kb de entrada/ saida na verda- 
de ndo contem memoria. O que hd 
sdo circuitos pendurados em certos en- 
dere 90 S, de forma que o simples acesso 
a eles modifica certas caracterfsticas 
do hardware (como modo texto ou gra- 
fico, alta ou baixa resolu 9 do etc.). Hi 
tambem algumas pos^des em que o sis- 
tema le dados, como sinais do gravador 
ou eddigos de teclas pressionadas e ou- 
tras que sdo reservadas para ROMs dos 
cartdes de expan sdo. Esta area e a me- 
m 6 ria serdo vistas com mais detalhes na 
tabela Mapa Geral da Memoria, em ou- 
tro artigo. 

Os 48 Kb do BASIC sSo assim dis- 
tribui'dos: os programas come 9 am na po- 
si 9 ao $800 (na verdade este endere 90 
contem sempre 00 — e um truque do 
interpretador - e o programa come 9 a 
mesmo em $801) e sdo seguidos pri- 
meiro pelas varidveis simples e depois 
pelas indexadas. Apos as indexadas co- 
me 9 a o espa 90 string que vai ate a posi- 
920 estabelecida por HIMEM (inicial- 
mente acertada pelo sistema no primei- 
ro endere 90 apds a ultima pdgina de 
4 Kb disponivel ; quando o DOS estd 
presente, HIMEM e colocado logo abai- 
xo dele, reduzindo a memoria dispo- 
nivel para cerca de 35 Kb). 

O espa 90 string e ocupado pelas strings 
propriamente ditas, isto e, pelas cadeias 
de caracteres que compdem cada uma 
delas. Na drea de varidveis o que fica 
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mesmo £ um conjunto de tres bytes pa- 
ra cada string (chamada pela Microsoft 
de string descriptor (descritor de string) 
e daqui para a frente referido como 
DESCR), sendo o primeiro a extern 
sdo e os dois seguintes o endere 90 on- 
de ele realmente estd. 

O espa 90 string vai sendo ocupado de 
trds para a frente, o que significa que 
cada nova string que aparece 6 colocada 
antes das mais antigas. Cada vez que 
uma delas e alterada, o sistema usa um 
novo local para armazena-la, deixando 
sem uso o antigo. Dd para perceber que 
logo a memdria estard entupida de 
strings sem uso, misturadas ds ainda vd- 
lidas. Quando isso acontece o sistema 
faz um rearranjo de memdria (chamado 
pela Microsoft de “garbage collection”, 
coleta do lixo), jogando para o final de- 
la as strings vdlidas e deixando o resto 
novamente livre. 

A memdria do BASIC ndo £ apenas 
ocupada pelo programa e sua s varid- 
veis. Tambem as paginas grdficas 1 e 2 
de alta resolu 9 do e a 2 de baixa parti- 
lham dela. Estes inquilinos sdo bastante 
incomodos em certas conduces (es- 
pecialmente a pagina 2 de baixa resolu- 
9 S 0 , que ocupa o mesmo lugar do pri- 
meiro Kb do programa), pois o sistema 
ndo sabe quando eles estdo sendo usa- 
dos e continua a armazenar coisas ali. 
A pagina 2 de baixa resolu 9 do fica entre 
$800 e $BFF, a 1 de alta resolu 9 do 
entre $2000 e $3FFF e a 2 entre 
§4000 e $5FFF. 

Os ultimos 12 Kb sdo ocupados por 
ROMs ou EPROMs que contem o 
programa interpretador e o sistema 
operacional, sendo que o primeiro 
ocupa 10 Kb e o segundo os 2 Kb 
restantes. Este ultimo e' quase to- 
talmente auto-suficiente, isto e, ndo hd 
nenhuma chamada ou salto para as ro- 
tinas situadas fora dele, com exce 9 do de 
alguns jumps para as pos^des $E000 e 
$E003, que devem conter os pontos de 
entrada a frio e a quente, respecti- 
vamente, da linguagem ou programa re- 
sidentes. Para quern ndo estd acostuma- 
do com estes termos, ponto de entrada 
ou partida a frio quer dizer iniciali- 
za 9 do geral do sistema. Todas as condi- 
9 des iniciais sdo estabelecidas, come 9 an- 
do tudo do zero. Partida a quente, por 
sua vez, 6 equivalente ao RESET do 
Apple: ndo hd perda de dados ou condi- 
9 des correntes do sistema. 



O BASIC NO APPLE 



Voce sabia que o BASIC do seu 
Apple e interpretado? Isso quer dizer 
que o programa em BASIC ndo e' con- 
vertido para a linguagem de maquina, 
mas sim fica na memoria mais ou menos 
na mesma forma em que foi digitado, 
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sendo interpretado por um programa 
monitor, o qual vai reconhecendo as ins- 
tances e chamando as rotinas em lin- 
guagem de mdquina que realmente as 
executardo. 

O programa interpretador consiste, 
basicamente, em um loop no qual o 
computador espera que a entrada de 
uma linha pelo teclado (ou perifdrico 
selecionado por IN#), converte-a para 
um formato comprimido (eliminando 
espa 90 s e substituindo as palavras- 
chaves por eddigos de um s 6 byte, cha- 
mados tokens) e a armazena na m£md- 
ria de programas ou salta para sua inter- 
preta 9 do, dependendo de ela ser come- 
9 ada por um numero ou ndo. Em 
qualquer dos dois casos o sistema sem- 
pre acaba retomando ao ponto ini- 
cial, onde aguardard a entrada de uma 
nova linha. Este ponto inicial 6 conhe- 
cido por READY no TRS 80, e serd 
chamado assim tambem aqui. 

As linhas convertidas e armazenadas 
na memCria ocupam sempre cinco bytes 
a mais que sua prdpria extensdo. Os dois 
primeiros sdo ponteiros que indicam o 
inicio da proxima linha, os dois seguin- 
tes contem o numero da linha atual e o 
ultimo byte da linha 6 sempre um 00. A 
linha mesmo come 9 a no quinto byte e 
vai atd o penultimo. Entdo pode apare- 
cer uma duvida: se os dois primeiros 
apontam para o inicio da prdxima, 
como £ que Fica a ultima linha do pro- 
grama, que ndo tern para quern apon- 
tar? Na verdade, este £ o truque usado 
pelo sistema para saber quando o pro- 
grama acabou. A ultima aponta para 
uma pretensa linha de apenas dois by- 
tes, ambos 00 , isto e, uma falsa linha 
cujo ponteiro e invalido, jd que ndo hd 
linha apontada armazenada antes de 
$800. 

Na interpreta 9 do de uma instru 9 do 
qualquer, o sistema deve estar sempre 
inicialmente olhando para um byte 00 
ou $3A (cardter “:"), caso contrdrio 
haverd erro GRAFIA. As posi 90 es $ B 8 
e $B9 contem o endere 90 para o qual 
o interpretador estd olhando a cada ins- 
tan te. Elas constituem uma das mais im- 
portantes varidveis do sistema, a qual se- 
rd chamada aqui de PTRLIN. 

O sistema pega os caracteres da li- 
nha sob interpreta 9 do atravds de duas 
rotinas tambem muito importantes, que 
sdo PROXCAR e PEGCAR. Estas 
duas rotinas colocam o cardter apontado 
por PTRLIN no acumulador e voltam 
com o Carry resetado se este cardter for 
um digito ou com flag Zero setado, 
caso seja um byte 00 ou um A roti- 
na PROXCAR primeiro incrementa 
PTRLIN e depois pega o cardter. Jd o 
PEGCAR e, na verdade, uma segunda 
entrada de PROXCAR, logo ap 6 s o in- 
cremento de PTRLIN, e apenas pOe 
no acumulador o cardter endere 9 ado 
por ele. Ambas as rotinas ignoram es- 

» 
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APPLE: 0 MAPA t)A ROM 



pa 90 S em branco, saltan do por cima 
deles at£ fencbntrarem o career v4- 
lido. Estas retinas estSo originalmente 
gravadas na ROM, mas $3b transferi- 
das para o inicio da RAM durante a 
iniciaJiza^^O do BASIC. A rotina 
PROXCAR come 9 a em S00B1 e a 
PEGCAR em S00B7. 

Como foi visto antes, as varte- 
veis simples come 9 am logo ap 6 s os dois 
bytes 00 do fan do programa, e sSo se- 
guidas pelas vartiveis indexadas e pelo 
espa 90 string. Os endere 90 s de inicio 
do prograitia, das variaveis simples, 
das indexadas e do espa 90 string sffo 
guardados has vatiaveis dos sistemas 
INIPROG, IN1VARS, INIMATR e 
INISTR. 

As variiveis sifttples ocupam sempre 
sete bytes, sendo dois para o nome e 
cinco para 0 valor. Uma varidvel tern os 
bits 7 dos dois bytes do nome setados 
e usa apenas dois dos cinco bytes res- 
tates para & valbr. Uma varidvel real 
tern os bits 7 do nome zerados e ocupa 
todos os cinco bytes, sendo o primeiro o 
expoente e os quatro seguintes a mantis- 
sa (mais significative primeiro). As varia- 
veis string tern o bit 7 do primeiro by- 
te do nome 2 erado e o do segundo se- 
tado, e usam apenas tres bytes para o 



valor, que na verdade 6 o descritor de 
string mencionado anterioimente. 

As varidveis indexadas obedecem as 
mesmas regras para nome, pordm, 
ocupam dois, tres ou cinco bytes por 
elemento, dependendo do tipo. Alem 
destes, cada varidvel ocupa mais 5+2* N 
bytes (onde N d o numero de dimen- 
sOes), sendo os dois primeiros usados pa- 
ra o nome, os dois seguintes para o to- 
tal de bytes gastos e um byte para o 
numero total de dimensGes e mais dois 
para cada dimensSo, que indicam qual o 
valor mdximo de cada uma (primei- 
ro a dimensSo, que aparece por ultimo 
no fndice). 



ACUMULADORES 



0 conceito de acumulador 6 muito 
importante para entender a resolu 9 ^o 
de expressGes. 0 acumulador e uma va- 
ridvel do sistema que sempre contdm 
um dos operandos e na qual tambe'm 
ficard o resultado da opera 9 §b. Hd 
tres acumuladores no BASIC, um para 
cada tipo de valor: o ACSINT ocupa as 
pos^Ges SAO e SA1, sendo usado para 
valores inteiros; o ACSTR1 fica tambem 
em S AO e $A1 e retdm o PTRDESCR 
(que d o endere 90 em que estd o 
DESCR) da string-resposta (nas fu^Ges 
e expressGes string, o DESCR do resulta- 
do fica nas pos^Ges S9D, $9E e S9F) 
e o ACSPF1, que recebe os valores re- 
ais (em ponto flutuante), ocupa as posi- 
96 es $9E ate SA1 com a mantissa 
(mais significativo S9E) e S9D com o 
expoente. 0 termo ACSOFT1 servird 
de nome gendrico para os tres acumula- 
dores. 0 tipo do valor a ser armazenado 
Id 6 o que dird qual dos tres serd usado. 
A varidvel do sistema TIPOAC, que 
ocupa as pos^Ges S 1 1 e $ 1 2, informa o 
tipo do valor contido no ACSOFT1. 
A pos^ffo $11 indica valor numerico 
se for 00 e string se for 255, enquanto o 
desempate entre valores numericos in- 
teiro e em ponto flutuante e feito pe- 
la posi 9 Jo $ 1 2 — 00 para ponto flutu- 
ante e 128 para inteiro. 

Valores diferentes em TIPOAC nao 
estSb definidos e confundirffo o compu- 
tador, provocando muitos erros tipo 
DIFERE. Algumas fun 9 Ges internas 
(+,—,* , /, A ,AND e OR) requerem dois 
operandos. Nestes casos sdo usadas varid- 
veis auxiliares para conter o primeiro 
operando, ficando o segundo no 
ACSOFT1. Por analogia, estas variaveis 
auxiliares serffo chamadas ACSOFT2 
(nome generico), ACSTR2 ($A8/$A9) 
e ACSPF2 (SA5/SA9). Nao existe 
ACSINT2 porque toda a matemdtica 
do Apple e em ponto flutuante, sendo 
usado o ACSINT apenas nas conversGes 



inteiro/ponto flutuante e ponto flutu- 
ante/inteiro. 
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No levantamento das rotinas da 
ROM foram usados apenas tres li- 
vros: o “6502 Software Design”, de Leo 
J. Scanlon (Serie Blacksburg/Howard 
Sams & Co, Inc.), o “Guia de Usua- 
rios do Apple II”, de Lon Poole, 
Martin McNiff, Steven Cook (Osborne/ 
McGraw Hill) e o “Apple II Circuit 
Description”, de Winston D. Gayler 
(Howard Sams & Co, Inc.). 

Os dois ultimos sdo bastante reco- 
mendaveis. O primeiro 6 como o manual 
do Apple deveria ser, e o segundo dd 
explica 9 Ges detalhadas de como o cir- 
cuito do Apple funciona, aldm de es- 
quemas, diagramas de tempo, etc. O 
livro traz ainda uma tabela de rotinas 
mais ou menos como a des- 
te artigo, pordm ela fica restrita d ROM 
do sistema operacional, alem de ser me- 
nos completa; por outro la do, ela diz 
quais registradores s5o alterados em 
cada rotina, o que ds vezes e muito util. 

O motivo da bibliografia ser tdo pe- 
quena 6 que este artigo nSo e nenhu- 
ma traduqao de livro americano: ele e 
resultado de mais de um ano de xere - 
tices em cima de listagens disassem- 
bladas do Unitron e do TRS 80 Dismac 
D8000. Paradoxalmente, trabalhar nas 
duas mdquinas ao mesmo tempo facilita 
as coisas; isto ocorre porque, como os 
BASIC dos dois sdo versGes reduzidas 
do MBASIC da Microsoft, pode-se extra- 
ir a estrutura basica do sistema atravds 
da compara 9 do das rotinas, semelhantes 
nos dois computadores. 

Os nomes de rotinas ou variaveis 
sdo quase todos cria 9 Ges minhas, nao 
tendo nada de oficiais. O artigo esta 
longe de dar uma cobertura completa 
ao assunto, o que exigiria um livro. Mas 
fornece uma boa base para que os lei- 
tores pesquisem mais a fundo as rotinas 
de seu interesse. Mais para a frente pre- 
tendo publicar o mapa da ROM do TRS 
80 e artigos especificos sobre o interpre- 
tador, suas rotinas matemdticas e de ma- 
nipula 92 b de strings, assuntos bastante 
complexos. ■ 
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Em MS n? 41, Aa materia A Lo- 
gica na Programa?ao, quinto 
paragrafo, setima lirtha, apare- 
ceu, indevidamente a palavra in- 
diferemja, o correto 6: ... As 
principal operates sao uniao, 
interseslo, diferetisa... 

Na figur'd .3, fOfdm publicadas 
as linhas A 3 OR B 7 e CS = 
“FALSO” ANtf NOT B 3. Nas 
duas linhas, faltaram os sinais > 
e < . O cetto e: A > 3 OR B > 7 
e CS = “FALSO” AND NOT 
B< 3. 



Na figura 8, as dperagoes uniao, 
intersetpao, diferen?a, produto 
cartesiano, proje?ao, restrigao 
e jun?ad fol'am impressas sem 
set as. AsSim, a forrha correta se- 
ria, por exemplo, T A U B, e 
nao T AUB. Faltou, ainda, na 
operagao interse^ao, o sinal 
fl .A forma cefta i T •«- A fl B. 
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Mesas para terminals 
de video 

CrSAMCkOm •? 



Na compra de 
Cr$ 1.000.000 
voce ganha um 
aparelho que duplica a 
utilizagao do diskete 



Conosco voce encontra tambem, tudo o mais que 

precisa em video-game, som, telefonia, 

das melhores marcas e procedencias, e mais: 

VIDEOS 

• Transcodificagao todos os sistemas 

• Fitas: VHS - BETA-U-MATIC e para limpeza de cabega 

• Baterias p/2 e 8 hs. 

• lluminadores 

• Cabos de extensao p/ cameras 

• Bolsas p/ cameras e videos 

• Telao 



COMPUTADORES 

• Suprimentos 

• Perifericos 

• Impressoras 

• Drives 

• Placas de Expansio Interfaces 

• Cabos 



Acess6rios nacionais e importados 
Suporte p / TV teto ou parede 



Curso de ingles em video-cassete 
Servigo expresso remetemos para todo Brasil 
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Nesta segunda parte do artigo a orientagao para utilizagao 
dos comandos complementares dos arquivos do NEWDOS/80 



Arquivos em disco 
do NEWDOS/80 

Joao Henrique Vatpini Manas 



C omplements udo artigo cuja piimeira parle fieri publi- 
cada era MS 39, vamos agora prat i car os novos co- 
man dos utiJizados com os arquivos do MEWDOS/SO. 
Antes de continual, e aconsdhdvd uma rekitura da 
parte initial, pois s5o niuitos os termos tdenioos utilizados pdo 
NEWDQS/gQ. 

£ necessario muito ewidado na digits 9^0 das instructs eui 
todos os exemplos a seguir. A execute de uma instru^fo er* 
rada poderS prejudice toda uma sequencia de exemplos. Se 
i$so ocorrer, re to me ao programs ntilizado para criar o arquivo 
e execute todos os exemplos > novamente. 

ARQUIVOS MU 

Este tipo de arquivo foi inicialmente concebido para subsr 
tituir os arquivos scquenciais do TRSDG5 (PRINT/INPUT no 
NEWDOS/80), oferecendo algumas vantagens: grava os valores 
numericos na sua represents 9^0 bindria (e nib em ASCII), per* 
mite a altcra^io de registros (obedecendo certas restri^^es) e 
possibility o accsso randomico atraves de indices. Uma earac- 
leristica deste arquivo e o faro dele mar car o inicio de cada re- 
gistro e de cada campo com determinados bytes identificadores: 

7QH - Indica o infeio de um registro (SOR-Start Of Record). 
Todo o inicio de um registro e marc ado com 0 byte 
7DH, mas nem todo o byte 70H indica o inicio do um 
registro, pois de pode aparecer como parte dc valores 
numericos ou em strings (Mia p minuscula). 

72H - Indica que os dois bytes a seguir $£o um valoi inteirn , 
73H - Indica que os quatro bytes a seguir &£o um valor real 
de precislo simples. 

74H - Indica que o$ oito bytes a seguir sio um numero real 
de precisio dupla. 

As strings sio identificadas de dois rondos: se ela tem menos 
de 128 caiactere$ p o byte indicador do campo ser£ o iesultado 
da soma de 80H mais o numero de caractcres da string. Sc ela 
tem I2S ou mais oaiacteres, a marca^io seri feita por dois by- 
tes: um 71H e outro indicando o comprimento da string. 



Para familiariza^o com e$ie tipo de arquivo, nada melhor 
do que trabaihar um pouco com de. De inicio, um pequeno 
pro gram a com a listagem 1 , a seguir. £ importante nffoesque- 
cer o ponto c vfrgula no flm dos JOEL (Item Group Expres- 
sion List) nas llnhas 3, 4 T 5 c 7, 

1 ’LL I P* HOOD 
? OPT* -O' - 5 ■ 

S PUT II... "N rn H 

4 . PUH L - ■ - &ifr|>di ' ] M. '* *] l 

t h)l«L. . r~N t lCWi T . r CMQ FH Efl ■ r 

* VI - -50- I v* - 31 r VJ * 72..00* I I V* * ST . ->C0cOGfr^£l 
T Pxi r* I . . .V*. vx . V* -vm- 
« CL CWf 

Execute o programs com RUN, criando o arquivo Exem- 
Lo/MU. Vol te ao sistema operacional com CMD +1 S^ e chame o 
UPERZAP, Com a op^o do DFS (Display File Sector) anali- 
se o setor 0 do arquivo Exemp!o/MU (Figura 1). Para faeili- 
tar a identifier Jo dos registros e campos foi feito um cfrculo 
cm torno dos bytes SOR dos registros e sublinhados os marca* 
dores dos campos. 

No infeio do setor vemos um byte 70H (SOR) e logo a Se- 
guir um SEH t indicando que a seguir vem uma string de 14 
bytes (RIO DE JANEIRO), pois a diferen^a 8EH-80H - OEM, 
que & 14 em decimal. Apos a string, temos novamente um SOR 
e a sequencia de bytes 7IH e &2H(82H =130 decimal), indican- 
do que a seguir temos uma string de 1 3D caracteres (vej a linha 
4 da listagem I), Apos os 130 asteriscos, la na posi^ao 9SH, 
temos um novo SOR h apontando o inkio do registro cm que 
foram gravadas as strings NITEROl e CABO FRIO, IdentiO- 
que os bytes marcadores destes campos. Finalmente^ no ulti- 
mo registro (posl^ao ASH, na figuia 1), temos os quatro Cam- 
pos gravados na Jinha 7 do programa. A string 30 6 facilmente 
identifie^vel, mas os valores numericos 31 * 32.0001 e 
33.00000000001 nio o sffo, pois eles estffo amiazenados era 
sua forma bin aria: 

• inteiro 31 - IF 00, na representasffo biniria; 

• real 32.0001 - I A 00 00 B6, na representa^ffo biniria; 

• duplo 33.00000000001 = FB 2B 00 00 00 00 04 86, na 
re presen ta^io biniria. 

Voltando ao BASIC, escreva agora as linhas da listagem 2, 
abaixo. 
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1 P«INT am ftm am atquivo »*» LOC • 1 » • 

? P«!NT "Fo«ic«o do EOT i-' L OC ( I > *4 

' P«!NT ‘Postcan do oro> t mo rMi«tro *“» LOC 1 1> ! 

4 P«lNT “Post c so do ultl»o rsststro ac*«««do «"t LOCU>* 

•5 STOP 

N5o de RUN no programa, ao inves disso digite: 



CLEAP IOOO * OPEN -P-. !.-EXE«PLO/NU“.‘NU- « GOTO 1 

O sistema responded : 

T»»t» dm *im dm arqutvo i O 

Post cm do EOF t 189 

Posicao do oroximo rssistro t O 

Postcao do ulttoo rssistro scssssdo i 
BAD FILE NODE in 4 

Observe que a fun^So LOC(l) # , que indica a posi^o do 
ultimo registro acessado (REMRA - Remembered Record 
Address) resultou em erro. Isso ocorre porque nenhum registro 
foi ainda lido ou gravado e o sistema invalida a fun^o. Fa9a- 
mos entJo a leitura do primeiro registro. Para facilitar a digi- 
ta^o, substituimos o PRINT pela interroga9Sb : 

GET 1...A4I * ? AS I GOTO 1 



A resposta serd: 

RIO DE JANEIRO 

Tests de fin de erauivo » O 

Posiceo do EOF i 189 

Posicao do oroxiso resistro * 16 

Posicao do ultieo -esistro acessado t O 

Note que os valores relacionados ao EOF (End of File) n£o 
se alteraram, pois estamos fazendo uma leitura de dados. Ape- 
nas as poshes do prbximo registro e do ultimo acessado fo- 
ram alteradas. (Na verdade, os.ponteiros que indicam estes re- 
gistros.) Nosso arquivo agora esta posicionado no inicio da 
string de 130 asteriscos. Vamos ler apenas os 10 primeiros: 

GET I ? A* I GOTO 1 

E teremos: 



Teste de fie de aeamvo 1 O 

Posicao do EOF i 190 

Fosirao do orooM rmutro 1 149 

Posicao do ultieo -e«tstro acessado 1 16 



Observe que foi possivel a leitura parcial de um campo. So- 
mente o NEWDOS/80 oferece esta flexibilidade. Vejamos ago- 
ra o proximo registro: 

GFT I...M.NI t ? AS. 8 S 1 GOTO 1 



O sistema responde: 

NITEROl CABO FRIO 

Teste de ft* de arquivo < O 

Posicao do EOF 1 189 

Pdsicao do eroximo resistro > 16t 

Posicao do ultiMO resistro acessado : 149 

Vamos ler este registro novamente, utilizando o FP (File 
Position), que posiciona o arquivo no inicio do ultimo registro 
acessado: 

GET 1 . S. .Ct.DSI 1 7 CS . DS 1 GOTO I 



Teremos entffo: 

NITEROl CABO FRIO 

Teste de Ms de aroulvo t O 

Posicao do EOF 1 189 

Fosicao do or o*i iso resistro 1 168 

Posicao do ultimo resistro acessado < 149 

£ importante observar que as pos^Qes do prdximo registro 
e do ultimo registro acessado n£o se alteraram. Fa9amos agora 
a leitura do segundo e quarto campos do prdximo registro. Ob- 
serve os nulos entre as virgulas, indicando que o campo cor- 
respondente deverd ser pulado: 

GET 1,. . . .N*. .NSt I ? NX. NS 1 GOTO I 

O sistema responded: 



31 33.00000000001 

Teste de Me de srsuivo »-I 

Posicao do EOF « 189 

Posicao do oroxtmo resistro * 189 

Posicao do ultiMO resistro acessado 1 168 
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£ importante observar que acabamos de ler o ultimo re- 
gistro do arquivo, pois a posi9ffo do EOF e igual a posi9ffo do 
proximo registro (189). Outro modo de verificar isso e atraves 
do resultado do teste de fim de arquivo, que esti indicando 
— 1 (verdadeiro). Vamos ent^o retornar ao inicio deste registro 
para ler os seus outros dois campos: 

GET l.«..N«..N't t ? N4.N' I GOTO 1 

A resposta serd: 

30 32.0001 

Teste de ft* de arquivo » - 1 

Posicao do EOF » 189 

Posicao do eroMimo resistro « 189 

Posicao do ultleo resistro acessado > 168 

0 que aconteceria se tentassemos ler mais um registro? 
Vamos ver: 

GET I...AS t ? AS i GOTO 1 

FND OF FILE ENCOUNTERED 
INPUT PAST ENO 

Aconteceu o que era de se esperar. 

Vejamos agora outra te'cnica de posicionamento de arquivo. 
Pela analise do arquivo com o SUPERZAP vimos que o tercei- 
ro registro come9ava na posi9£o 95H (149 em decimal). Digi- 
te ent£o: 

get |. *149. . B4.DSI * ? 8 «. DS i GOTO I 

O sistema responded: 

NITEROl CA80 FRIO 

Teste de fi« de arquivo t 0 

Posicao do EOF t 189 

Posicao do proximo resistro t 168 

Posicao do ultimo resistro acessado i 149 

A utiliza^o de valores determinados de RBA (Relative By- 
te Address), seja um numero, o conteudo de uma variavel ou o 
resultado de uma expressffo, fard com que este valor seja trans- 
ferido para o ponteiro do prdximo registro. Isso nos permite 
acessar o arquivo de forma randomica, bastando para isso ar- 
mazenar os RBA dos registros num vetor e acessa-los atrave's 
dele. Digite o programinha a seguir, listagem 3, e de um 
RUN 100. N2o apague as linhas 1 a 5 que ji est£o na memdria 
do computador, pois continuaremos a utilizd-las. 

100 OPEN -R- . 1 . -EXENPLO/NU- . -MU" 

101 I - 0 

102 I “ !♦! « GET 1 i RB«I) - LOC < l ) ■ o RBA do ultimo rmsistro acdssado 

103 IF NOT LOC ( I >6 THEN 102 ’vkiMc* sm Ja chmsou ao fim do arauivo 

104 CLOSE 

105 CLS i PRINT "Nummro dm rmsistros no arquivo *“l I 

106 FOR J ■ 1 TO I I PRINT ‘Rmsistro-t J« *comtca no RBA‘t RB(JI t NEXT 

107 END 

Com o RUN 100, o sistema respondera: 

Nummro dm rmsistros no arauivo « 4 
Rmsistro 1 commca no RBA O 
Rmstst-ro 2 commca no RBA 16 
Rmsistro 3 commca no RBA 149 
Rmsistro 4 commca no RBA 168 

Em arquivos de verdade nflo se esque9a de dimensionar o 
vetor onde serfo armazenados os RBA. Neste caso n£o foi pre- 
ciso, pois sabiamos que o arquivo tinha menos de 10 registros. 
Nao e necessario dimensionar vetores com menos de 10 ele- 
mentos. 

Vejamos agora alguma coisa de grava9a*o em arquivos MU. 
Como voce ja deve ter imaginado, a altera9a"o dos registros 
existentes ficard condicionada a que o comprimento do novo 
registro (inclumdo os bytes marcadores), seja igual ou menor m 
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ao registro ja existente. Vamos entSo abrir o arquivo e alterar 
o primeiro registro: 

OfEN -R".t."EXEHPLO/HU"-HU" 

PUT |..."NOVO RIO"* * GOTO 1 

0 sistema responded: 

TMtt dm «»•> dm «roul \/o ‘ O 

f n»iri»o do EOF * U*9 

Foticap rto pr 0 'l «0 r*»l»tro » 16 

P«*»C 4 «o do ultimo r»*i<»tro »cp«*de * •> 

Perceba que aconteceu o mesmo quando fizemos um GET 
no primeiro registro. Vamos agora dobrar o valor armazenado 
no terceiro campo do quarto registro (o valor real de precis£o 
simples 32.0001), para exemplificar a leitura/grava^o parcial 
de registros. E tambem aproveitar o vetor RB, que n£o deve 
ter sido apagado da memoria. 

GET I . • PM 4 1 ... * 'ooucion* o «raui v© no micie do 
c*moo do du#rto r»**»ntro. 

GET | . • . .Vf * '!*• A v»r|«v»l V A 0 *<-*K d* 0O«tC*O *tu-*l 

do praulvo. 

PUT l.*..2*V'* o dobro dm V* * p*rf.ir do poo to ood# 

<01 » .il 1 1 m trpnpitrptrM d* 

d«do«. 

GOTO I 

Eis a resposta : 

T**t» do li* am *r«uii*o 

Pnur«o do FOT * »R* 

Post C no do proximo rMUtro * 

rrjnicpo do ultimo rm*i*tro «cm»*(Io * IfcE 

Novamente nos encontramos no final do arquivo. Vamos 
estende-lo. Digite: 

PUT I . JX. . "ULTIMO REGISTRO"* t GOTO 1 

A resposta: 

T««tp dm Mi* d» prouiwo *“* 

Pohicpo do EiF 1 *0* 

P- 1 » 1 C*C do nroiiiwi r*ti«tro * 206 

Po*\c mn do ult*«*" r**ntro pc««««do * IB 4 * 

Sera que nosso arquivo foi relamente estendido? Na realida- 
de ainda n£o, pois a string Ultimo Registro ainda esta no 
buffer do arquivo, na memoria do computador, e so serd gra- 
vada quando dermos o prbximo PUT ou GET ou fecharmos 
o arquivo. Para for 9 ar a grava^So deste registro podemos uti- 
lizar o comando PUT 1,& mas o diretorio ainda estard desa- 
tualizado. Para for^amios a grava^o do registro e a atualiza- 
qSo do diretorio, antes que alguma queda de luz o prejudique, 
basta darmos um PUT 1, && e ele estara entao atualizado. 

Vamos agora ao scgundo registro (a string de 130 asteris- 
ks), alterando-o com alguns campos menores: 

PUT |. . .9TRTNG*(4O.-A-».STRJNG*<40."B"».STRING*(40.-C">t I GOTO I 

Resposta do sistema: 

T««t* dm 4i m dm »r aulvo < O 

Pn * icpo do FOT * r<*6 

F’o*icao do proximo rwntrp * l* 9 

Popicpo do ultimo rp«i*tro *cm«i»*do * 16 

E se tentassemos colocar mais uma outra string de 40 ca- 
racteres neste registro? Vamos tentar, mas antes, atualizemos 
o arquivo: 

PUT J.U. o prouivo m a di rotor to no 

PU’ 1 .STRING* (40. "D"»t * GOTO t 

RECORD OVERFLOW 

£... estourou o registro. Mas serd que pelo menos uma par- 
te da string foi gravada? Feche o arquivo (CLOSE), saia do 
BASIC (CMD“S ,V ) e volte a examinar o arquivo com a opqSo 
DFS do SUPERZAP (figura 2). Observe que alem dos bytes 
SOR nas posi^es 00H, 10H, 95H e A8H, que ja existiam an- 
teriormente, temos agora um outro SOR na posi^Sb BDH, cor- 
respondente ao registro que foi adicionado ao arquivo. Veja 
agora o primeiro registro. 0 byte marcador (88H) indica uma 
string com 8 bytes de comprimento (88H-80H - 08H). Per- 
correndo 8 bytes, a partir do inicio da string NOVO RIO 
encontramos uma seqtiencia de bytes 00. Estes bytes s£o 
utilizados como enchimento pelo sistema, ja que NOVO 



RIO tern um comprimento menor que RIO DE JANEIRO, 
anteriormente gravada. 

No registro seguinte vemos as strings de 40 A’s, B’s e C’s e 
logo ap6s uma nova seqtiencia de 00, indicando que a string 
de 40 letras D que queriamos gravar nSo foi transferida para o 
arquivo nem ao menos parcialmente. No NEWDOS/80 um 
erro durante a execu 9 ao de PUT/GET faz com que os dados 
do registro nSo sejam transferidos e que a posi^o atual do ar- 
quivo nSo se altere. 

No prbximo registro temos a string 30, o numero inteiro 
31 (IF 00 na representa^o binaria), o real 64.0002 (1A 00 
00 B7) e a seguir zeros. O valor 33.00000000001 (precis5o 
dupla) simplesmente foi apagado do arquivo. Isso mostra o 
cuidado que devemos ter na altera^So parcial de registros, pois 
tudo o que vier apos o ultimo campo gravado serd perdido. 

ARQUIVOS TIPOMF 

Na primeira parte deste arquivo voce conheceu as caracte- 
risticas dos arquivos MF. Todos os seus campos s£o marcados 
do mesmo modo que nos arquivos MU. E todos os registros 
tern o mesmo comprimento, definido na abertura dos arquivos. 

Assim como nos arquivos MU, os registros MF podem ser 
alterados, n£o sendo obrigatbrio manter o mesmo numero, 
tipo ou comprimento dos campos do registro original. A unica 
orienta^ao a obedecer i o comprimento m£ximo do registro. 

Utilizando a mesma tecnica dos arquivos MU, vamos exe- 
cutar algumas instates com arquivos MF. Comecemos di- 
gitando o seguinte programa da listagem 4: 

» CLEAR I C*Y\ 

OFEN “O". I • "CVFHPLO/W- -MF-.V' * I f » c« rmitlro* dm 64 (>»♦•» 

- FUT I- . "CANO0J-. -CAMFO r-.-CAHRO N^.T"* 

4 Pi IT I . • STRING* «7°. "•** » m*io t «tr onstl 
n JR • t ! *. » IOO. OA| t IT. » TO 

6 PUT 1.. . |». I . IV. t 

7 CLOSE 

Execute o programa, criando desta forma o arquivo Exem- 
plo/MF. Saia do BASIC e chame o SUPERZAP, analisando o 
setor 0 do arquivo (figura 3). Imediatamente sentimos a au- 
sencia dos bytes 70H (SOR) no inicio dos registros, ja que ar- 
quivos MF nao utilizam o byte SOR, pois o comprimento dos 
registros e fixo e conhecido pelo sistema operational. E me- 
diante uma simples opera^o aritmetica do tipo: (numero do 
registro — 1) * comprimento dos registros; o proprio DOS de- 
termina o RBA de qualquer um, do mesmo modo que nosar- 
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Filiada a ABICOMP 






Leve logo um microcomputador 
i>il TK 85, porque ele e realmente facil de 
| usar: ja vem com manual de instru^oes, 

I f que ensina,em portugues claro, 

I a linguagem Basic. 

| A partir daf, voce pode preparar 

|pf seus proprios programas ou utilizar as 
centenas de programas que ja existem 
no mercado,para cadastrar dientes, controlar 
estoques, manter em ordem o or^amento 
familiar, fiscalizar a conta bancaria, estudar 
, matematica, estatistica, jogar xadrez, guerra 
nas estrelas, e o que mais voce puder imaginar, 
E alem disso tudo, o TK 85 tern 
tambem o pre^o mais acessivel do mercado. 
Pe^a uma demonstra^ao. 



TK 85,o micro que voce pode usat 




computadores pessoais 







ARQUI VOS EM DISCO DO NEWPQS/80 

quivos Field Item (FI), com a vantagem de aceitar registros 
muito maiores, de ate 4095 bytes de comprimento. 

No initio do setor encontramos os tres campos do primeiro 
registro (CAMPO 1 , CAMPO 2 e CAMPO 3) precedidos pelos 
bytes marcadores (86H, 87H e 8AH, respectivamente). Logo a 
seguir, temos quatro bytes 00, utilizados para enchimento do 
registro. Depois temos uma string de 29 asteriscos, que e o ta- 
manho maximo permitido para gravasffo de strings neste ar- 
quivo (lembre-se que o byte marcador esti ocupando 1 byte 
do registro). Finalmente encontramos os tres valores numeri- 
cos gravados na linha 6 do programa. Nao e facil identificd-los, 
]i que estao na sua representas^o binaria. 

Retome ao BASIC e digite as seguintes linhas do programa, 
(listagem 5), ou entfo altere a listagem 2. N5o de RUN apos a 
digita$£o: 

1 FPJNT -Taat* do fin da arau ivo «*» LOCO)* 

2 PRINT "Post c ao do EOF * "* LOC<l»X 

Z PRINT “Post coo do oroxino rwistro *"* LOCO)* 

4 PRINT "Ultimo rnfittro acaaaado *"» LOC < 1 > 

5 PRINT “Post coo do ultimo rtm»tro acaaaado *"* LOC(l>* 

6 STOP 

Agora digite: 

OPEN -P-. I."F*FNPLO/MF". "MF-.30 * GOTO 1 

0 sistema deverd responder: 



Tost* dm fin do arauivo * O 

Post coo do EOF i 90 

Post coo do nrovino r#*i»tro • 0 

Ultimo rooiatro octttodo * O 



Post coo do ultimo rooiotro ocossodo I 
PAD FILE NODE in S 

Os resultados s&o andlogos aos do arquivo MU. Como curio- 
sidade podemos notar que enquanto a iunqSo LOC ( ) funtio- 
nou perfeitamente, devolvendo o ultimo registro acessado, a 
fun^o LOC( ) # , que retomaria o RBA deste registro, 
resulta em erro, feito qualquer acesso ao arquivo. Vamos ler 
entSo os dois ultimos campos do primeiro registro do arquivo: 

GET I • . • . A* . B*t * ? AS. PS i GOTO t 

Teremos como resposta: 



CAMPO ? CAMPO NO . Z 

am fin am arauivo * O 

Post can rto EOF i 90 

Posicao do proximo rm«iatro * 30 

Ultimo rmaiat'o acaaaado * l 



Posicao do ultimo rmsistro acmssado « 0 

Devido ao campo nulo entre a terceira e a quarta virgulas, 
indicando que ele devera ser pulado, somente o segundo e o 
terceiro campos foram lidos. Vamos retomar ao imcio do re- 
gistro e ler os dois primeiros: 

GET 1 . * • • AS . PS t t ? AS. PS i GOTO 1 

Teremos ent2o: 



CAMPO 1 CAMPO r 

tmato dm fin dm arauivo * O 

Posicao do EOF * W 

Post car do proximo *-m«istro 1 30 

Ultimo «-m*istro acmssado * I 



Posicao do ultimo rmnitro acmssado * O 

Do mesmo modo que nos arquivos MU, n6s podemos ainda 
nos MF continuar a ler o registro do ponto onde foi interrom- 
pido: 

RET 1 - . C*s * 7 C* i GOTO I 

0 sistema respondera: 



CAMPO NO. 7 

Imstm dm Tim dm arauivo * O 

Posicao do EOF t 90 

Posicao do oronino rm*»istro « 30 

Ultimo rmsistro acmssado « 1 



Posicao do ultimo rmsistro acmssado < 0 

Vejamos agora outros metodos de posicionamento do ar- 
quivo. Como os registros s£o todos do mesmo tamanho, po- 
demos acessar qualquer um deles atravds do seu prdprio nu- 
mero: 



RET | .3. .N*.N‘ .NX« l •> Na.N’.NX « GOTO 1 

Teremos como resposta: 



inoon.oooooi loo.ooi 10 

Tmstm dm fin dm arauivo * O 

Posicao do EOF i 90 

Posicao do or on I mo rmsistro * 90 

Ultimo rmsistro acmssado * 3 



Posicao do ultimo rmsistro acmssado i 60 

Poderiamos ainda acessar o mesmo registro atraves do seu 
RBA. Entretanto, nZo e necessdrio empregar um vetor dos 
RBA como nos arquivos MU, ]i que podemos calcular a posi- 
qSo dos registros facilmente: 

NR - 3 i GET l. ! (NR-I>*30..V*.V , .VX» l ? V*.V*.VX * GOTO 1 

0 sistema respondera: 



10000.000001 100.001 10 
Tmstm dm <m dm arauivo • 

p©si car do EOF l 

Posirao do nroxinp rmsistro » 

Ultimo rmststro acmssado > 

posicao do ultimo rmsistro acmssado • 



O 

90 

90 

3 

60 



Agora vejamos alguma coisa sobre altera^o de registros em 
arquivos MF. Execute a seguinte linha de instru^^es: 

AS • -• « PUT 1.1.. ASt I GOTO l 

E teremos: 



Tmstm dm T in dm arauivo « O 

Posicao do EOF i 90 

Posirao do proximo rmsistro • 30 

Ultimo rmsistro acmssado i 1 



Posicao do ultimo rmsistro acmssado ■ 0 



Certamente o primeiro registro foi alterado, mas o que ser i 
que foi gravado? Apenas um byte 80H, indicando que a seguir 
ha uma string nula, ou seja, nada existe i frente. Como o re- 
gistro tern 30 bytes, ainda sobram 29. Vamos prosseguir a 
grava 9 So neste registro: 

PUT !.*.. AAAAAAAAAA't I GOTO 1 

0 sistema responded: 



Tmstm dm fin dm arauivo > O 

Posicao do EOF i 90 

Posicao do oroxlno rmsistro * 30 

Ultimo rmsistro acmssado I 1 



Posicao do ultimo rmsistro acmssado I 0 

EntSo, 29 menos 11(10 bytes da string mais 1 byte marca- 
dor) = 18. Isto quer dizer que podemos ainda gravar uma string 
de ate 17 caracteres. Vamos la: 

PUT 1 . s. , STRING* < 1 7. I * l GOTO 1 



O sistema deverd responder: 



Tmstm dm Tim dm arauivo * 0 

Posicao do EOF * 90 

Posicao do sroxino rmsistro « 30 

Ultimo rmsistro acmssado > 1 



Posicao do ultimo rmsistro acmssado t O 

Tudo correu bem. Para finalizar, vamos acrescentar mais 
dois registros ao final do nosso arquivo: 

PUT 1 . ?X. • "PENULTIMO REGISTRO f4l"i ’oomictona no Tim dm arauivo m srava 
PUT 1... -ULTIMO REGISTRO <3>"» I GOTO 1 



A resposta sera: 

Tmstm dm Tim dm arauivo * - 1 

Posicao do EOF i 130 

Posicao do oroxlno rmsistro • 130 

Ultimo rmsistro acmssado » 3 



Posicao do ultimo rmsistro acmssado * 120 

Feche o arquivo e analise-o com o SUPERZAP (figura 4). 



DRV 


00 


eogfi 


4141 


4141 


4141 


4141 


4141 


9124 


2424 


. . AAAAAAAAAA . *** 


0 


10 


2424 


2424 


2424 


2424 


2424 


2424 


2424 


9D2A 




OH 


20 


2 A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






30 


2A2A 


2A2A 


2 A2A 


2A2A 


2A2A 


2A2A 


74DE 


1B43 


«. * «< ** >• ** mm . .C 


DRS 


40 


0000 


401C 


8EZ5 


8200 


4887 


720A 


OOOO 


OOOO 




30 


50 


OOOO 


0000 


OOOO 


OOOO 


OOOO 


9650 


454E 


554C 




1EH 


60 


5449 


4D4F 


2052 


4547 


4953 


5452 


4F20 


2834 


TIMO. REGISTRO. (4 




70 


2900 


0000 


OOOO 


OOOO 9355 


4C54 


494D 


4F20 






90 


5245 


4749 


5354 


524F 


2028 


3529 


OOOO 


OOOO 


REGISTRO. <5> .... 




90 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






AO 


0000 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






BO 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




FRS 


CO 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




0 


DO 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




OH 


EO 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






FO 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 





Figura 4 
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.Os registros do arquivo come 9 am nas posic5es OOH, 1EH, 
3CH, 5AH e 78H (0, 30, 60, 90 e 120 em decimal). Na posicao 
OOH o byte 80H indica uma string nula e na posi^So 01 H o 
byte 8A indica uma string de 10 bytes de comprimento (as 
10 letras A). Logo ap6s a string temos o byte 91H apontando 
a string de 17 cifrOes. A partir da posisao 1EH temos o byte 
marcador e a string de 29 asteriscos preenchendo completa- 
mente o registro. A partir da posi^o 3CH temos os tres va- 
lores numdricos que foram gravados. Observe neste e nos dois 
ultimos registros a utilizasffo dos bytes 00 para preencher o 
registro at£ completar os 30 bytes. 

ARQUIVOS TIPO MI 

As principal caracteristicas que diferenciam os arquivos 
MI dos MU e MF 6 que nSo podem ser alterados e nSo distin- 
guem registro de campo, ]i que nSo existem bytes SOR e nem 
informamos ao sistema o tamanho dos registros. Estas dife- 
ren 9 as restringem bastante a utiliza^o dos arquivos MI, que 
servem geralmente como meio bastante compacto de armaze- 
namento tempor^rio de dados. 

Arquivos MI apenas s&o gravados, lidos ou expandidos, n£o 
podendo ser alterados. 0 acesso a seus registros ou campos, ]i 
que nSo hi (listing, pode ser feito de forma sequential ou 
randomica. Para treinarmos um pouco a utiliza^o desse tipo 
de arquivo, digite o programa a seguir (listagem 6) ou entSo 
altere a linha 2 da listagem 1 : 

1 CLEAR lOOO 

2 OPEN -O-.l.-EXEMPLO/MI-.-HI- 

3 PUT • 1 . . . -RIO DE JANE IRQ" I 

4 PUT*1 . . . STRING* ( 130. I » 

5 PUT*1. . .-NITEROI-. "CARO FRIO"i 

6 V* • -30- « VX • 31 i V* • 32.0001 « V* • 33.00000000001 

7 PUT ■ 1 . . • V* . VX » V ' . V* I 

e CLOSE 

Execute o programa e analise o setor 0 do arquivo criado 
com o auxilio do SUPERZAP (figura 5). Imediatamente, 
observamos que n£o hi bytes SOR nem aquela profusSb de 
bytes de enchimento. A estrutura e controle do arquivo es- 
tSo sob responsabilidade do programador. Para acessd-lo se- 
qiiencialmente 6 preciso saber que tipo de campo esti sendo 
lido. Na forma randomica e necessdrio conhecer tambem os 
RBA dos bytes marcadores dos campos do arquivo. 



DRV 


00 


2£52 


494F 


2044 


4520 


4A41 


4E45 


4952 


4F71 


.RID.DE. JANEIROr 


0 


10 


B22A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


. +*» a*********** 


OH 


20 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






30 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


mm m m mm mm mm mm mm 


DRS 


40 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 




75 


50 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 




4BH 


60 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






70 


2A2A 


2A2A 


2A2A 


2A2A 


2 A2A 


2A2A 


2A2A 


2A2A 


mmm* ****** *4>m*m** 




80 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






90 


2A2A 


2A87 


4E49 


5445 


524F 


4989 


4341 


424F 


♦*♦. NITEROI . CABO 




AO 


2046 


5249 


4F82 


3330 


721F 


0075 


1A00 


0086 


. FRIO. 30r. ...... 




BO 


74FB 


2B00 


OOOO 


0004 


SZoo 


OOOO 


OOOO 


OOOO 


t.«- 


FRS 


CO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




0 


DO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




OH 


EO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






FO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 





Figura 5 



Ainda examinando o arquivo, vemos que, de acordo com o 
programa, n6s gravamos cinco strings, um valor inteiro, um 
real de precis£o simples e outro de precisSo dupla. Os bytes 
marcadores destes campos estSo localizados nas posi9(5es 
OOH, OFH, 93H, 9BH, A5H, A8H, ABH e BOH. Retorne ao 
BASIC e digite novamente as linhas da listagem 2 utilizadas no 
arquivo MU. E depois as instates: 

OPEN -I-.l.-EXEMPLO/MI-.-MI" « GOTO 1 

Resposta do sistema: 



T»«t» da Tim da arauivo « 0 

Poaicao do EOF i 103 

Po«tc«o do BroxtMO raalatro « O 

Poaicao do ultimo raatatro acaaaado < 

DAD FU.E MTiDF ln 4 



Identico ao ocorrido com o arquivo MU. A diferen 9 a esta 
na posi 9 <To do EOF (185 em vez de 189) devido a ausencia de 
bytes SOR. Como o sistema n£o distingue registro de campos 
neste tipo de arquivo, vamos tentar ler de uma so vez varios 
registros: 

GET 1 . . . A* . ( 1 ft ) B* . C* > D* - * ? A*.P*.C*.D* t GOTO l 

A resposta devera ser: 

RIO DF JANEIRO NlTfTROI CABO FRIO 

Taato am Tim am arauivo * 0 

Poaicao do EOF t IBS 

Poaicao rto oroximo r# atatrn * 163 

Poaicao do uUtno ra«i»tro acaaaado i O 

Observe que a fun 9 <fo LOC ( ) # , indicativa da pos^o 
do ultimo registro acessado, devolveu o valor 0 . Isso porque 
o sistema entendeu todas as variaveis lidas como campos de 
um so registro, no caso, o primeiro do arquivo. Vamos abri-lo 
de outra forma. Digite: 

rtocr I OPEN -E-. 1 • -F’'FMPLO/Ml-. -MI- i GOTO j 

Teremos a resposta: 

TaaTm da fim am arauivo i-l 

Poaicao do EOF t IB*. 

Poaicao do aro^imo ra»iatro • 1B3 

Poaicao do ultimo rMiat.'o acaaaado » 

BAD FILE MODE in 4 

0 arquivo agora estd aberto para grava 9 §o a partir de seu 
ultimo registro. Vamos estende-lo, gravando alguns valores 
nume'ricos: 

PUT 1... 10.20.30* i GOTO 1 

0 sistema responded : 

Twatm da Tim da arauivo 1-1 

Poaicao do EOF i t «»4 

Poaicao do oroximo roaiatro « IR 4 

Poaicao do ultimo roaiatro acaaaado i 1 RT 

Veja que o EOF agora est i 9 bytes mais longe, e o REMRA 
tern o valor da posi 9 ^o anterior do EOF. Em arquivos MI, j i 
que registros e campos n£o tern distin 9 ^o,o REMRA e sempre 
igual ao REMBA (Remembered Byte Address) e ambos sSo 
iguais i pos^Jo do arquivo no im'cio da transference de dados 
no PUT ou GET. 

Coloquemos agora o arquivo no modo randomico, aces- 
sando o quarto registro atraves do seu RBA. Vejamos: 

CLOSE i OPEN -R-.1.-EXEHPL0/HI-. "Ml" 

GET 1 . '1.M9B. . Aat i 'Al i GOTO I 

Resposta do sistema: 

CABO FRIO 

Taa*a da T»m da arauivo i O 

Poaicao do EOF , 104 

Poaicao do proximo rm«iatro * IRS 

Poaicao do ultimo r*,i,tro acaaaado * 163 

Agora, o prdximo registro e a string 30 gravada na linha 6 
da listagem 6 . Vamos ler tudo o que foi gravado nesta linha: 

GET I .. .A*. AX. A* .ART i - At . AX • A 1 • AO t GOTO I 

Teremos, ent£o: 

30 31 32.0001 yr.oooooooonci 

Taato da Tim da arauivo * 0 

Poaicao do EOF i 1 R 4 

Poaicao do proximo r»«iatro * 193 

Poaicao do ultimo roaiatro acaaaado * 163 

Para demonstrar que nos arquivos MI o REMRA e o REM- 
BA tern sempre o mesmo valor, execute as instru 96 es: 

GET 1.0.. A*t I ? A* I GOTO 1 
GET 1 . 4 . . A«t I ? AO I GOTO t 

Nos dois casos o sistema responderd: 

zo 

Too*# dm Tim do arouivo l A 

Pool con do Faf i 1Q4 

Poairao do proximo rm« i«»rn i I6R 

Poaicao do ultimo r»a»otro acaaaado * 163 

De um CLOSE e analise o arquivo com o SUPERZAP (figu- ^ 
ra 6 ). J i que n£o foi possivel fazer qualquer altera 9 §o nos re- A 
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ARQUIVOS EM DISCO DO NEWDOS/80 



DRV BE 5 2 494F 2044 4320 4A41 4E45 4952 4P7j . RIO. DE. JANEIROa 



0 


10 


822A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2 A2A 


. *u*>*l*«.***4n*4**ao*.+>* 


OH 


20 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






30 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 




DRS 


40 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 




40 


50 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


* * ** * * or + *.*1** ** On# 


28H 


60 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






70 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






80 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 






90 


2A2A 


2A87 


4E49 


5445 


524F 


4989 


4341 


424F 


♦•«*♦. NITEROI . CABO 




Ai 


2046 


5249 


4F82 


3330 


721F 


0073 


1 AOO 


0086 


. FRIO. 30r . . * 




BO 


74FB 


2B00 


0000 


0004 


8672 


OAOO 


7214 0072 


t.+ r. .r. .r 


FRS 


CO 


1EOO 


0000 


0000 


0000 


0000 


0000 


OOOO 


OOOO 




0 


DO 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


OOOO 




OH 


EO 


0000 


0000 


OOOO 


0000 


0000 


0000 


OOOO 


OOOO 






FO 


0000 


0000 


0000 


0000 


0000 


0000 


OOOO 


OOOO 




Figura 6 



gistros, a unica diferen^a e a presensa dos tres campos grava- 
dos ao final do arquivo nas posi^Ses B9H, BCH e BFH. 

ARQUIVOS TIPO FF 

Como foi dito na primeira parte deste artigo, ha muitas 
diferen 9 as entre arquivos tipo Marked Item (MI) e Fixed 
Item (FI). Neles nSo existem bytes marcadores, pois a des- 
cribe* dos campos e feita pelos IGEL. Por isso e muito facil 
uma leitura errada de dados, sem que o sistema acuse qualquer 
tipo de erro. Por exemplo, se o arquivo estiver posicionado 
numa string e tentarmos ler uma varidvel nume'rica inteira, os 
dois primeiros bytes da string ser£o transferidos para a memo- 
ria como se fossem os dois bytes do numero inteiro, com re- 
sultados certamente desastrosos para o programa. Outra di- 
feren^a e que nos IGEL podem aparecer somente nomes de 
variaveis (nao mais constantes ou expressoes), sendo o prefixo 
(LEN) obrigatorio nas variaveis string. Finalmente, a terceira 
diferensa e que os arauivos tipo Fixed Item podem ser altera- 
dos utilizando leitura/gravabo parcial de registros, sem que o 
campo alterado infiuencie os campos qOe estiverem logo a 
seguir. Lembre-se de quando perdemos o numero de precisao 
dupla no arquivo MU. 

0 subtipo FF apresenta a caractenstica de ter todos os re- 
gistros do mesmo comprimento, declarado durante a abertura 
do arquivo, como no MF. Vamos experimentar alguns coman- 
dos digitando o seguinte programa (listagem 7): 

I CLEAR lOOn 

r OPEN "0”. 1 • "EXEMPLO/FF" . -FF“ . 30 

3 N« - -mew 5I5TEHAS- 

* PUT J . . . (70)N*t 

3 N* • STRING* 130. "♦"> 

6 PUT J . . . (30>N*l 

7 NT. - 12743 IN* - 12345.6 » N* - 12343.6709 

0 PUT 1 . . . NX . N * . N* * 

9 CLOSE 



Execute o programa e analise o arquivo criado com o 
SUPERZAP (figura 7). Para facilitar a identificabo* marca- 
mos com colchetes o inicio eofim dos registros. 



DRV 


00 


[4D49 4332 


4F20 


5349 


5354 


454D 


4153 


2020 


MICRO. SISTEMAS.. 


0 


10 


2020 


2020 


2020 


2020 


2020 


2020 


202«[2A2A 




OH 


20 


2A2A 


2A2A 


2A2A 


2A2A 


2A2A 


2 A2A 


2A2A 


2A2A 


♦ ♦♦♦■a* ♦****■«■ **>♦•* 




30 


2A2A 


2 A2A 


2A2A 


2A2A 


2A2A 


2A2A][3930 66E6 


♦ ♦ 4.44 ♦**♦♦♦ *90f . 


DRS 


40 


408E 


04C5 


8F31 


P7E6 408EJ OOOO 


OOOO 


OOOO 




265 


50 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




109H60 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






70 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






80 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






90 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






AO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 






BO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




FRS 


CO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




0 


DO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 




OH 


EO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


COOO 


OOOO 






FO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 





Figura 7 



No inicio do setor, encontramos a string que foi gravada: 
MICRO SISTEMAS, mais 16 espa 90 s (20H). Eles aparecem 
como resultado do IGEL da linha 4, onde se declarava que 
N$ deveria ser gravado com 30 bytes. 0 sistema se encarre- 
gou de completar N$ com espa 90 s a direita ate completar os 
30 bytes desejados. No segundo registro (posibo 1EH) esta a 
string de 30 asteriscos e, no ultimo registro, as tres varidveis 
numericas gravadas. Se nSo conhecessemos o programa que 
criou o arquivo seria completamente impossivel saber que a 



partir da posibo 3CH temos tres valores riume'ricos gravados, 
pois nada no arquivo indica isso. 

Retorne ao BASIC e digite novamente as linhas da listagem 
5 utilizadas no arquivo MF. E depois as instru^es: 

CLEAR 1O00 i OPEN " J ■ • 1 • "EXEMPLO/FF" « “FF " . 30 l GOTO 1 

O sistema respondera: 



Tost* d* * t m de troutvo I O 

Pn«lr«o do EOF i 90 

Toiicto do proximo r*«i*tro * 0 

Ultimo r*«mtro «r»«i«do » O 



Po«lc»o do ultimo rtvictro «c**««do : 

RAD FILE MODE in 3 

Como era esperado, o sistema estd posicionando o arquivo 
para processar o primeiro registro. Novamente a funbo 
LOC( ) # provocou erro. Para ler o primeiro registro, 
digite: 

GET 1 • . . (30>N* t i •> LENIN*! . N« : GOTO | 

A resposta serd: 

30 MICRO SISTEMA* 



T mmtm d* #im d* proulvo I O 

Pomicmo do EOF i 90 

Fostcao do Proximo ruistro « 30 

Ultimo rtfutro «c*«*ado I 1 



Posicpo do ultimo reetptro «ct«»«do t 0 

Conforme indica o resultado da funbo LEN, 30 caracte- 
res foram transferidos para a variavel string N$. Veja agora 
como e facil lermos apenas parte de uma string: 

GET l. . . (3>A*. (10)0*. (13)C*I * "> 6*.P*.C* « GOTO 1 

A resposta: 



T**tP d* (in dm •reutvo 1 O 

Po*ic«o do EOF i 90 

Pomicao do proximo rMtitro * 60 

Ultimo rwittro er»a«»do > 2 

Pomicmo do ultimo reetatro *c*a««do « 70 

Outra facilidade que o sistema nos oferece e a flexibilidade 
de pubrmos bytes em um registro, de forma a lermos apenas o 
que for desejado. Vamos ent£o ler o terceiro campo do tercei- 
ro registro (o valor de precis£o dupla), pulando o valor inteiro 
(2 bytes) e o real de precisao simples (4 bytes): 

GET l...(6)*.N*t t ”* N* t GOTO 1 

Teremos como resposta: 



1 2343. 6709 

T»*r* dm (ik d* arauivo i-l 

Post emo do EOF t 90 

Fo*jcpn da proximo r**istro » 90 

Ultimo r«*istro mcvsspdo < 3 



Fosicpo do ultimo r*«tstro *cmss«do • 60 

Outra flexibilidade oferecida pelo arquivo FF e o acesso a 
um registro por seu numero, como nos arquivos FI e MF, jd 
que o sistema conhece o comprimento de cada um deles. Digi- 
te: 

GET 1 • 2. . (30) A*: * 9 a* t GOTO l 

A resposta serd: 

T*st* d# ♦ in d» arauivo * O 

Posicso do EOF » 90 

Posicto do proximo r*si*tro * 60 

Ultimo rmsistro PC vsssdo * 2 

Fosicpo do ultimo r**lstro pcpsspdo t 30 

Vamos agora colocar o arquivo no modo randomico, fazen- 
do algumas altera^Oes nos seus registros. Para isso, execute as 
instates abaixo: 

CLOFE i OPEN "R". 1. "EXEMPLO/FF". -FF". 30 I GOTO 1 

0 sistema responde: 



]>stm dm dm dm arauivo : o 

Povicmo do EOF t 90 

Posicpo do proxtipo rm-istro i O 

Ultimo r*«istro pcmsspdo * 0 



Posicpo do ultimo rppistro •c»«»«do • 

BAP FILE MODE in 5 

Vamos ent£o alterar o primeiro registro, adicionando uma 
string ao fim de MICRO SISTEMAS: 

A* - -ANIVERSARIO- I PUT 1 . 1 . . ( 13) *. ( 1 1 > A*l l GOTO I 



58 



MICRO SISTEMAS. marpo/85 




A resposta sera: 



T*if* dm <ta d* arauivo * O 

Rnptcpo do EOF * 90 

Pnpicxo do proximo r#-i*tro « 30 

Ultimo raantrc acmpppdo * 1 



Poaicao do ultimo rmmlptro acMftado » O 

E agora, que tal uma alterab 0 no meio de um campo? Va- 
mos tentar o segundo registro: 

A* - nTPtNT.* ( in. f -1 t put 1 .2. • • 1")*. (10>A*t i GOTO 1 

Teremos como resposta: 



Taata d- dm d* arauivo * 0 

Pomicpn do EOF * 90 

rr»*icpo do pro imo r*-i»tro * 60 

Ultimo raantro acaatado > 2 



Cm > r *o do ultimo raatttro acaaaado I 30 

Como abrimos o arquivo no modo R, podemos tambem 
adicionar registros: 

A* - -OUTNTO REGISTRO" « PUT 1.3..(30>A*t « GOTO 1 

0 sistema responded: 



T-a*» dm fim dm arauivo t-t 

Poaicam do EOF i 130 

Pn** can CSrr nm -mo i*tro * ISO 

Ultimo rmaiatro acaaaado * 3 



Pnalrao dc ultimo rraitlro acaaaado « 120 

Observe que o quarto registro foi completamente ignorado. 
Para manter a organizabo do arquivo, o proprio sistema se 
encarrega de gravd-lo com nulos (bytes OOH) antes de gravar 
o quinto, como foi especificado. 
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Feche o arquivo e analise o primeiro setor com o SUPER- 
ZAP (figura 8). La esta a string ANIVERSARIO apos MICRO 
SISTEMAS (primeiro registro) e a de 10 cifrOes bem no meio 
da string de asteriscos, originalmente gravada no segundo re- 
gistro. Na posibo 78H encontramos o registro adicionado 
(QUINTO REGISTRO). 

-ARQUIVOS TIPO FI 

Do mesmo modo que no MI, o arquivo FI nSo faz divisao 
entre os registros (e nem entre os campos, ja que pertence a 
classe de arquivos Fixed Item). Entretanto, oferece a vanta- 



gem de poder ser alterado, o que o faz um pouco mais pode- 
roso que os arquivos Ml. Como exemplo, digite o seguinte 
programa (listagem 8): 

1 CLEAR l COO 

2 OPEN -0". 1. -EXENPlO/’FI-. "FI" 

3 A* - -PRIMEIRO REGISTRO" i AI • 1 I A' ■ t.l i Al « 1.11 

4 PUT 1 . . • ( 1 6 ) A* • AX . A ' . A* * 

3 B* • "REGISTRO DOIS" « 07. — 2 * 0* • 2.2 « 04 - 2.22 

6 PUT 1.*. . <16)04. P‘4. 0*.P*t 

7 CLOSE 

Observe que gravamos dois registros com formatos identi- 
cos: uma string de 16 caracteres, um valor nume'rico inteiro, 
um real de precisffo simples e outro de precisao dupla. Embora 
n£o seja obrigatririo gravarmos registros com estruturas seme- 
ihantes, este 6 o modo mais facil de mantermos controle to- 
tal sobre o arquivo, pois e' muito facil cometermos erros de po- 
sicionamento, sem que o computador acuse mensagem de 
erro. 
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Chame o SUPERZAP para analisar o arquivo (figura 9). Lo- 
go notamos que a string PRIMEIRO REGISTRO teve o ul- 
timo O truncado, jd que no IGEL especificamos a grava 9 ao 
de 16 caracteres e a string AS tinha 17. Ja no segundo registro 
observamos que o sistema adicionou espa 90 s (20H) ao final 
da string REGISTRO DOIS, ate completar 16 caracteres 
indicados no IGEL. Os valores nume'ricos foram gravados sem 
problemas. 

Digite as linhas da listagem 2 utilizada nos arquivos MU. 
Depois execute: 

n.EAR 1000 t OPEN -R". 1 . "EXEMPLO /FI". -FI" I GOTO 1 

O sistema responded : 

Tastv dm (in da arauivo * 0 

Po«tc#r do EOF i 60 

Po«lc.»o do oro;: t no r*«istro » O 

Rn»ic#o do ultimo raantro acatwdo » 

FAD FILE MOOF in 4 

Como era de se esperar, o arquivo esta posicionado de ma- 
neira que o proximo PUT ou GET comece o processamento 
no primeiro byte do arquivo. Como conhecemos a estrutura 
dos registros que foram gravados, vamos tentar ler o primeiro 
e terceiro campos do primeiro registro: 



cl 



CENTRILDBIA 

Com e Represenlacoes Lida 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 



DISKETES: 5 1/4 e 8" e fitas magn6ticas 
• marca VERBATIM 
ETIQUETAS PIMACO - PIMATAB 
PASTAS E FORMULARIOS CONTINUOS 



• Discos Magn6ticos: 5 Mb. 16 Mb. 8 Mb. etc 

• Fitas Magnfticas: 600. 1200 e 2400 p*s 

• Fitas CARBOFITAS p lmpressoras: Globus, M 100/200 B 300/600 Elebra 

• Fitas p/impressoras: Elgin. Epson. Digiiab. Diablo. Elebra-Alice. 

• Cartucho Cobra 400 











ARQUIVOS EM DISCO DO NEWDOS/80 



A resposta: 

j^rimftro rfristr *•* 

T#«t» rl* t\m dm •roulvo * O 

ro«ic#o do EOF | 

Po«lc«o do oroKl*o r»*l*tro • 

Po»lc«o do ultimo r#*l»tro «MMdo « O 



Observe que pulamos o valor inteiro simplesmente especi- 
ficando o elemento (2)S no IGEL. Note tambem que o pon- 
teiro do prbximo registro esta voltado para o valor de preci- 
sSo dupla gravado logo em seguida. Do mesmo modo que os 
arquivos MI, os FI nSo fazem distin^o entre campos e regis- 
tros. Nos do tipo FI n«To e indicado nem ao menos onde come- 
ca e termina um campo: o numero de bytes transferidos vai 
depender do tipo de varidvel especificada no IGEL. Vamos ler 
o prdximo registro. Como sabemos que foram gravados 30 by- 
tes no anterior, posicionaremos o arquivo atraves do RBA: 



RFT 1. *?0. . <16>A*.AX.A'.A«l t ? A*.A*.A‘.A« : GOTO » 



O sistema deverd responder: 



PFGTSTRO POIS 2 

? . 7700000 ?G6 1 02? 

T*%tm dm <im d* arauivo 

Po«ic.o do EOF 1 

F ->m r#o do proximo rmmimtro 

Po«te»o do ultimo romutro «c*»*Pdo i "’• r ' 



Aten^o. A primeira vista parece que fizemos alguma coisa 
errada, pois o valor de precis£o dupla que gravamos era 2.22 e 
n<To o numero que apareceu acima. O que aconteceu foi uma 
daquelas idiossincrasias do BASIC, pois quando fize- 
mos B # =2.22 foi armazenado na memoria o numero 
2.22000002861023, que foi corretamente gravado. Para evitar 
este tipo de coisa deveriamos ter feito B # - VAL( 2.22 ) e 
ent£o gravado. Este e um cuidado que devemos tomar com 
numeros de precisao dupla em geral, e n£o tern nada a ver com 
arquivos. 

Vamos agora estender o arquivo. Mas antes de efetuar a 
transference de dados abriremos uma lacuna de 30 bytes: 

A« • "REG. 3 CAMPO 1 * « D« - "REG. 3 CAMPO NUMERO 2" 

PUT 1.. . (30>«. C141A*. <16>B»* * GOTO 1 



Resposta do sistema: 



Tprnt* d» *im dm atouivo 

Poaicao do EOF 

Posicao do proximo r*»i»tro 

Pon c ao do ultimo rAAlAtro acaaaaOo 



i-i 
* 120 
« 120 
t 60 



Vamos tambem alterar parte da string do segundo registro. 
Coloquemos uma letra K entre as palavras REGISTRO e 
DOIS, )& gravadas: 



A« - "K" i PUT 1. *30.. <8>4. <1)A«« « GOTO 1 
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Figura 10 



A resposta sera: 



TMti d* <1* d» Arouivo * O 

Post c AO do EOF 1 

Posicao do proximo r#mtro 
Post c ao do ultimo rpsistro acpssaOo « 30 

Feche o arquivo e anaiise-o com o SUPERZAP (figura 10). 
IA pela posiqSo 26H vemos a letra K gravada, sem que tenha 
sido afetado o restante da string. Observe a partir da posi^o 
3C uma sequencia de 30 bytes 00, gravados antes da gravado 
do prdximo registro, na posi^ffo 5 AH. Neste, note novamente 
que a segunda string gravada foi truncada a direita. 

Por ora e so. Longe de nossa inten^o esgotar o assunto 
sobre arquivos em disco no NEWDOS/80 em t5o poucas pagi- 
nas (no manual original do sistema mais de 80 paginas s2o de- 
dicadas exclusivamente a este assunto). Ha varias tecnicas que 
nSo foram abordadas e que apenas as necessidades de cada um 
poderSo ou n5o exigir. Entretanto, acreditamos que se voce 
executou os exemplos apresentados (e certamente fez alguns 
erros quando digitou aqueles comandos cheios de virgulas e 
ponto e virgulas etc.), ao menos deve ter perdido o medo 
natural de se aventurar nestes novos tipos de arquivo. 



JoSo Henrique Volpini Mattos i engenheiro naval e tem cursos de CP/M, 
Assembler e FORTRAN pela UFRJ, COBOL pela NUCEMPRO e tra - 
bat ha hi quatro anos com BASIC. Possui um micro D-8002, com placa 
CP/M. Atua/mente trabalha em arquitetura naval no Estaleiro Maui , 
utilizando um IBM 434 1. 



jcrciftll 

■fit plus 

com r 

IIIDEOTEUTO 




voce ja encontra na 




computer store 



O seu microcomputador CRAFT II plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens & 
cores, atrav6s de uma interface RS 232-C, um 
modem assincrono e um software dedicado, 

! i venda e em demonstragSo na SACCO. 

! Torne-se um usu&rio do VIDEO-TEXTO, 

opcionalmente tamb6m do Projeto CirandSo, 
e garanta hoje o seu presente de Natal. A sua 
familia tamb6m vai poder usar e gostar 
muito. 

• Sdo Paulo • Santos - Campinas 

SACCO Computer Store 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
Sao Paulo - SP - Tel.: (Oil) 852-0799 

' 
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Sim, desejo receber 

□ a fill MlCROBUG. pela qual pogarei Cr$ 20 mil + OS 2,300,00 referents a 
rtgspesas do Corraid. 

□ os numfrroi eira&stiGi d& MS. peio* quail pogarei o preco de C r® 1 mil * per exem- 
plar, Me interesiam m ediefle*: □ MS nP 31 P MS n? 33 

□ MS n° 32 O MS n? 34 

TOTAL: Cr* 
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Stou enwisndo um cheque nominal ATI Editora Ltda 
lentg Wilson n? 1 B5 H grupo 1210 — Centra — CEP 200 d 
u de roemboisQ eMCiui'das 

produtot actma podem Ser adquhitiOS dmwmenw e 
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ojieiQ MlCfl OBUGj 
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EM FIT A 



O prdjito MICROBUG, dwftwhfido pela equipa dtt 
CPD d« MS r for cfiado par* amciliar o an land im ante « 
■ axpldra£to do* naeurpo* oxiUtntni not micnai da 
linha Sinclair. Sua corlflnj fid r f»3*o ■ passo nn 
pjginn da rwltta, tarn tide hfi pertineto dociwi no 
aprtndiEJrio e deaanv chrism onto dci uuiAriut na 
programa^io COT hnguagam dn rn£quini_ 
David d ao manna tucam do MICRO BUG, ref lei Uo 
nai murnerit Carte* qua tamoi reeebido, a ATI 
EOITORA LTD A. optdu por ofarocer a venio 
integral dd MICROBUa. 

Pari tal d foi cantritado um eikidn ializado. 
^ranlindo um padrio de gnvapfc prof istional * 
unit embalagam inviol Aval que ved iiri apraciar. 
Como ■ docuvnanta^io do MICROBUG common am 
MS n? 31 f aquataa qua adquiririfn a fit* tsrfto ■ 
OROR TUN I DADE DE COMPRAR OS 
EX EM PL ARES DUE MAD POSSUAM POR UM 
PRECO ESPECIAL. Aproveita eita dwnca « 
iiHlfrua lw do MICRO BUG am iuh forma intapal. 
Preancha o quadro ao ladpa mndi ji d mu psdklo. 

TIRAGEM LIMIT ADA. 




Mwnb QIixMI VntnA, A. 4 - 
JI 4* ■ 



| Program a /inha H&M 
para organizar o seu CPD. 



O l"uncion^menfo do CPD depends de urra boa organiz. 



Com 

a linha H&M voefi tern o que precise p are organ izar e e^ili^ar o $eu 
CPD; pastes pore 0 erquEvamema de formularies cootlnuos; arqui- 
vos: ^rqulvoft carinhes: 'Arfcatte Fd ' 
sss pars microcofTipuladores. terminals de video e impmssoras; 
arminos e Produtos qua s# intapram, prolagam e ra 

cipnahEam ae informal Ms no CPD. 



HANKA MALDONADO 
IND.ECOM.LTDA. 



arquivos pare disquetes: me^ 
iinais de video * " 
rodutos quo && imep 
_ aoOes no CPD. 

Programs a Linha H&M e deixe seu CPO b em Of gantzado. 
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Aventurar-se madrugada afora cm contatos at raves 
dc servigos de teleinfo r mat ica e urn risco muito serin, como 
e mostrado agora coni bom humor 



Os perigos da 
te/ematica 

Luis Caries Siiva Eiras- 



P odc uma niaquind pensar? A 
pergunte e auliga e devido a 
difictiEdadc de se dcflnir com 
prcciKio o que venha a ser peit- 
sumciMo* a penas o Teste dc Turing, por 
assunm a subjelividadc delta quest So 
cspecifica, podc dai iitna resposia sa- 

ns fat to a Alan Tilling (19 1 2-1954) 

propos que uma pessoa (A) se cornu- 
mcasse com cuiira (H) c uni compute- 
dor |C) atravds dc terminals. Um *uiie- 
para (T) man tern (A) sem ver (B) e 
(C | L uma chave (CH) ligaria o terminal 
ora a um. ora a ouiro. sern a seu conhc- 
cimcnlo (ver figura]. Sc depdis de ccr- 
to tempo de con versa (A) nSo $ou- 
bessc qual resposu vinha do compu- 
tador ou do ouiro usuario. podcria-se 
conduit que a maquina pensa. (Num 
Tesie an a logo, podena-sc perguniar sc 
um ho mem compute, mas isso 6 ou- 
tra liislnria.) 

Eu estava jusiamente lendo um fas- 
ciculo sob re o I'csic de Turing quamlo o 
estranho caso. envoi vendo os mais bi- 
sterros aspectob da tclemiLica, me che- 
gou ao conhccimento. Nao entendo 
absolute me i Me nada de teleprocessor 
men to, informal tea, CQtmiwcac&o de 
dados , reserv'd de mercado, cssas coisa s 
dc hoje* cxeeto rudiment os aprendidos 
cm encidopedias. Mas. como vcz por ou- 
Ira e sere vo sobre o assunto (e aqui ap ro- 
ve i to para agradccer a bencvolencia dc 
nossa rmprcrssa) 1 ui procutado pclos pa- 
renics da vitima que, esgotadns os re- 
curses da moderna Mcdicina, vinham cm 
busca de qualoucr ausilio posafvcl. 

Fui ate a clvnica dc repousu para do- 
entc$ dos jiervos nos arredores de Be- 
lo Horizonte visilar a vitima c, apesar do 
Or Ambrozyus A] vis Maityra Phyllus, 
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espccidisia maior cm doengas de pro- 
ecssamento dc dados (ver Micro Siste- 
mas, fevereiro, I9S3, pigina 73], me 
falar maravilbas de sua niethora. a eu- 
contrei ainda com sintomas de depres- 
sib mental aguda (DMA), dcsencadca- 
mento de uma sin drome de deseoncxlo 
mental (5 DM ) e amnesia iransitfrria 

{Ml 

Acs poucos ganhei confiftiga da Vi- 
tima c, contandu com a ajuda dc seus 
parentes c amigos, live accsso a seus 



disquetes k manuals e equipamentos, dc 
forma a poder resumir sua ir^gica 
experientia nas tinhas que sc scgucni. 
Sc pouco ajudei no seu a in da distant? 
restatwlecimento, aeredilo que esie re- 
laro servird de advertencia para aque- 
ies que sc aventuram pclos c&minhos da 
telemat ica sent os devidos aiididos. 

Tudo comc^ou quando a vitima. dc^ 
pois de certa cxjterienda com compute- 
do res pesstiais rcsolveu ser assinante 
desses services dc tcleinfontia^Io. Ap 6 s 
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Figura 1 
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alguma procura, inscreveu-se na empre- 
sa publica competente e, adquirindo 
a interface de comunicaslo, a modem 
especifico e o software emulador, li- 
gou tudo no seu micro e telefone. 
Em poucos dias passou a fazer parte da 
“comunidade teleinformatizada aberta a 
todos os brasileiros”. 

Sua vida adquiriu um novo colorido. 
Comunicando-se com pessoas espalhadas 
por todo o pais, a vitima orgulhava- 
se de sua inegavel modemidade. Seu 
didlogo nlo se dava mais com as mensa- 
gens de erro de um programa que nlo 
rodava, com a velocidade de um vi- 
deogame, nem com os resultados dos 
softwares aplicativos que — por mais 
surpreen dentes que possam parecer — 
sempre eram reduzidos a velha 16gica 
de causa-e-efeito. 

Agora havia um que de inesperado. 
Atraves das op 9 Qes do Menu Principal 
de Serv^os era possivel travar didlogos 
interessantissimos (“Como estd o tempo 
af em Recife? Aqui faz sol, apesar de 
nublado”), participar de teleconferen- 
cia (“Eu acho que a riqueza de um pais 
depende da prosperidade de cada um”), 
receber mensagens de um quadro de 
avisos (“Se voce sorri para a vida, a vi- 
da ihe sorri”)* enviar mensagens para 
esse quadro (“Deus escreve certo por 
linhas tortas”) e consultar um banco de 
informa 9 < 5 es (“Em caso de ingerir or- 
todibromobenzeno, tome leite, mante- 
nha a calma e chame um me'dico”). 

A vftima come 90 u a passar a maior 
parte do seu tempo livre sentada no ter- 
minal trocando mensagens com a comu- 
nidade teleinformatizada. Come 9 ava de- 
pois das oito da noite para aprovei- 
tar a tarifa reduzida e varava a ma- 
drugada. Seus familiares e (raros) ami- 
gos nlo chegavam a notar a mud an - 
9 a, j A que hi tempos ela dedicava todo 
o seu interesse ao microcomputador. E 
com o fim da solidlo, tinha se trans- 
formado numa nova pessoa. 

At^ que numa dessas trocas de men- 
sagens o inesperado aconteceu: as 
respostas de um determinado assi- 
nante come 9 aram a chegar impre- 
visiveis demais. No principio a viti- 
ma pensou que se tratava de erro de 
comunica 9 lo, alguma interferencia, pro- 
blema no modem. Mas testes sucessivos 
demonstraram que do outro lado havia 
inteligencia, talvez superior. A vitima 
ficou logo seduzida. 

Consegui recuperar alguns desses 
didlogos e os transcrevo a seguir. Em 
letras minusculas estlo as frases da 
vitima e em maiusculas as respostas 
que recebeu: 

hoje nlo estou bem. 

VOC£ DISSE: HOJE NAO ESTOU 
BEM?! 

6, estou com problemas. 

POR QUE AFIRMA ISSO? 
acho que ninguem gosta de mim. 



VOCE DISSE: ACHO QUE NINGUEM 
GOSTA DE MIM?! 

talvez voce me ache uma pessoa ridi- 
cula ao afirmar isso, mas e verdade. 

POR QUE AFIRMA ISSO? 
minha vida daria um livro. 

VOC£ DISSE: MINHA VIDA DARIA 
UM LIVRO?! 

nlo sei o porque de sua ironia, mas e 
verdade. eu sofro muito. 

POR QUE AFIRMA ISSO? 

Infelizmente, por mais que tentasse, 
nlo consegui estabelecer com pre- 
cislo a cronologia dos didlogos. Nas 
grava 9 ( 5 es nlo hi registro de datas e 
a vitima em nada me ajudou nesse de- 
talhe, de forma que os coloquei (um 
tanto arbitrariamente) em seqiiencia de 
complexidade e de intimidade. 0 di£- 
logo seguinte e bastante elucidativo: 
VAMOS CONTINUAR A FALAR DE 
VOC£? 

eu sou uma pessoa muito sensivel. 
NAO SE FAQA DE VltlMA. 
nlo me agrida! eu sou mesmo uma pes- 
soa muito sensivel e voce £ a unica pes- 
soa que parece me compreender. 

VAMOS CONTINUAR A FALAR DE 
VOC£? 

estou falando de mim! voce e que estd 
fugindo do assunto. 

NAO SE FAQ A DE VITIMA. 
nlo me tripudie. eu nlo estou me fa- 
zendo de vitima, eu sou apenas uma 
pessoa infeliz. 

VAMOS CONTINUAR A FALAR DE 
VOCE? 

voce j i se encheu? acha que j i falei 
demais? 

Como nem todos os diilogos foram 
gravados devido i extenslo (haja disque- 
tes, varavam a madrugada), transcrevo 
em seguida aquele que me pareceu o 
mais significativo. Mostra a total depen- 
dence da vitima nesse relacionamento: 
eu quero te conhecer. 

VOCE DISSE: EU QUERO TE CO- 
NHECER? 

nlo ria. eu preciso te conhecer? 

O QUE LEVA A PENSAR ASSIM? 
uma necessidade interior muito grande, 
por favor... 

VOCE ESTA EVITANDO FALAR SO- 

BRE SEUS PAIS. 

nlo quero falar sobre isso! 

OH 

voce acha que isso e importante? 
VAMOS CONTINUAR A FALAR DE 
VOCE. 

eu nlo fa 90 outra coisa a nao ser falar 
de mim. 

NAO SEJA PESSIMISTA. 
voce nlo quer me conhecer? 

VOCE DISSE: VOCE NAO QUER ME 
CONHECER? 

eu nlo estou impondo nada. eu exter- 
nei apenas um desejo. 

0 QUE LEVA A PENSAR ASSIM? 
eu j i disse. n 6 s nos entendemos tanto. 
nlo seria melhor nos conhecermos? 



VOCE ESTA EVITANDO FALAR SO- 
BRE SEUS PAIS. 

voce acha que a familia e uma coisa tlo 
importante? 

OH 

desculpe. claro que e importante. mas 
vamos falar de n 6 s. 

NAO SEJA PESSIMISTA. 
voce acha impossivel? 

VOCE DISSE: VOCE ACHA IMPOS- 
SIVEL?? 

Tenho em meu poder outros dte- 
logos, mas que s£o pouco importantes 
ou de carater extremamente intimo, 
que prometi resguarda-los. 0 certo e 
que a vitima, num misto de dependen- 
ce, ansiedade e esperan 9 a, saiu a procu- 
ra de um encontro pessoal com seu in- 
terlocutor. Depois de diversas consultas 
e utiliza 9 £o de outros me'todos, com o 
numero e o nome da inscri 9 ^o acabou 
encontrando o endere 9 o numa capital 
do pais. 

A vftima lembra-se de sua emo 9 *io ao 
chegar na casa de terreno arborizado 
(uma mans^o nos arredores da cidade); 
do casal de psiquiatras que gentilmente 
a recebeu; que, sim, tinha um micro- 
computador e que, devido ao acumulo 
de clientes, estava desenvolvendo pro- 
gramas para sessbes de analise auto- 
matizadas. E que eram usuarios da co- 
munidade teleinformatizada, mas a 
bem da verdade, nunca a tinham utili- 
zado por falta de tempo. 

Para espanto dos psiquiatras, a vi- 
tima explicou e reproduziu os dialogos. 
As falas eram familiares, mas como po- 
deriam ser transmitidas se na casa s 6 
moravam os dois? Se os poucos empre- 
gados e os muitos clientes so apare- 
ciam durante o dia? E se a maior parte 
dos didlogos havia sido travada de ma- 
drugada? 

De repente veio o estalo: 

— So pode ser o Lacan!! 

Lacan era um macaco. 

Observando os donos, Lacan apren- 
deu a ligar a maquina, a colocar os 
disquetes e a responder seus estimulos. 
Ao tdrmino de cada pergunta recebi- 
da soava um sinal e Lacan apertava um 
botSo que enviava de volta uma das 
frases gravadas no disquete. Circulava 
livre pela casa, dormia numa jaula 
prbxima do “quarto do computador” e 
sua intimidade com o equipamento 
era total. 

Foi ai que a vitima se transformou 
em vitima. 

Mas, enfim, os psiquiatras haviam 
testado seu servi 9 o de andlise automa- 
tizada e a comunica 9 ^o de dados entre 
as espe'eies ]i e um fato. 

m 



Luis Carlos Silva Eiras tra ba / ha na Area de 
Contro/e da Prodemge, em Be to Horizonte , 
Minas Gerais. 
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Sinclair Sinclair Sinclair sine 



Polvo gigante 







Joao Jos6 Marques Gonsalves tern 16 anos, estd cur sand o a 2? s6rie do 
29 grau e jd fez dois cursos de BASIC. Atualmente e/e possui um Ringo 
R-470, no qua I desenvolve seus programas. 

Figura 1 - Primeiro estdgio do jogo 



Joao Jos6 Marques Gonsalves 



0 objetivo deste jogo 6 guiar um mergulhador ( * ) 
at 6 o fundo do mar em busca de um tesouro, usando as teclas 
5, 6, 7 e 8. Durante todo o trajeto, o mergulhador 6 atacado 
por um polvo gigante. Porem, al£m de n5o poder ser apanhado 
pelo polvo, o mergulhador deve, ap6s cumprida a missSo, 
retornar ao barco antes que seu oxigSnio se acabe. Lembre-se 
que a quantidade de oxigenio cedida ao mergulhador no inicio 
de cada estdgio vai ficando cada vez menor, atd que o jogo 
chegue ao seu ddcimo estdgio. 

0 programa dd, ainda, a op 9 ffo de se jogar com dois placa- 
res, tendo cada jogador quatro chances para continuar a parti- 
da. No inicio de cada uma delas, o recorde i atualizado e colo- 
cado no alto da tela. 



0 J 0 G . 1-0 
JOG. 2-0 



: ::-z : : 



ESThGIO : 1 




10 LET p=0 
20 G05UB 590 
30 FOP V*1 TO 4. 

4.0 GOSUe 4.70 

50 FOP 0 sN TO 0 STEP -1 

60 FOR F * I TO 2 

70 let X« = X 

30 LET Yft«v 

90 _ET X»X + I • INK EY *="&") * l X •: 16 
> - iNr EY* = '?■ • ♦ ( X > 6 M * f Y«5 
100 _ET ■=.+<: INKEY *= 5 " 1 * 1 ■ 31 

• - XNKE S= 5 ♦ I ( ,5) ♦ i <al8' 

110 LET 1 32 I 

120 PRINT AT *A,YA.’ ' AT 11 5 
5* I AT 12 5 09 Hi; AT 1-.6.A* I 
AT 18. 6,0* I' AT 16.5 EJ I -AT 

- 



350 GOTO 310 

250 FOP E=0 TO 0 STEP -1 
370 i_ET P i J. sP i J) ♦XNT ig A * 

330 JNPlOT B 0 
390 NEXT 8 

A00 PRINT AT J . 7 P ( J) 

A 10 GOTO A0 

A20 PRINT at 1/15 fim de JOGO 
AT 3 . 11. "OUTRA PAPT lpfi“ • 5 'N 1 " 
A30 IF INKEY S = "N“ THEN STOP 
aa0 IF INKgys 5 THEN GOTO A3 

0 

A50 CL5 
450 GOTO 20 
470 let X *6 
4 50 let y *5 

490 LET A=29 



T50 LET AS a ■ 

-50 LET 61 <1> = 

770 LET BS '2i a I 
”80 LE' r Ci t 1 1 a " 

790 LET c*(2> = “ 
•500 LET D* « 1) = ■ 




310 LET OS '2> a 



820 LET E S 1 1 = 

: 30 LET E» 2 = m m 
340 LET PSaSTft* P 
350 PRINT AT l i -JOG 
1. JOG. 2-0 TAB 2 M 



.tab 0 ■* s =- 




130 LET UalSO- . UslJ * ( • , =6i ♦ IV« 
14 . * , =17 » +• , =20' ♦ (Xall) l «. (1=5' ♦ 

t (Y a 10) ♦ (Y al5' ♦ <7 s24) ♦ »Y *2”) ♦ (>.a 
16* » I *r *A * *290* lYaB) 43304 ' « =5 - 
•fiaO. 4360 

140 IF U 0 THEN GOTO U 
150 NEXT F 
160 UNPLOT 0,0 
170 NEXT 0 

130 PRINT AT x AT 10 22 

••(■".fiT 11.22 "■ 

190 FOP F=i TO 30 
200 NEXT F 

210 IF P»Jl>R THEN LE t RaP(j) 
220 IF NJx2 AND Jal THEN lE^ . = 
V-l 

230 IF N J *2 THEN LET j«2/2 
240 PRINT AT 1 1 . 22 ; "H" AT 10 2 
2. V, AT 21.0 



250 NEXT V 

260 LET NJaNJ-1 

270 IF N J > 0 THEN GOTO 130 

280 GOTO 420 

290 LET A=0 

200 LET P i J ■ aP ( j) +50 

310 PRINT AT J .7, P (j) 

320 GOTO 150 

330 LET 5 =0 

340 LET P I J) aP l Jj 4100 



500 LET B a 30 

510 LET Na63-(EtJ» -(E i J) >10* ♦ E 
(J| -10 M *2 
520 LET E ijl *E ( J i 4 1 
530 PRINT AT is 29 RH ‘ AT 2/J 
0 A' r J , O B , AT * ' ♦" . AT 2 

0 15 E STAG 10 E 1 J J ' 

540 if U-l THEN PRINT AT 3,U+1 



550 e 0R 0 a0 TO N 
550 PLOT 0.0 
E”0 NEXT 0 
530 »ET URN 

590 PRINT ’* DIGITS 0 N 1 DE JOGADO 
RE 5 1 - 2- ' 

500 wE T U* a INKEY* 

€10 IF US 1 AND US 2** THEN 
GOTO 600 
620 CL 5 

530 LET NjaUAL US 
540 LET .J=i 
850 LET 1=1 
6^0 DIM E < 2 : 

630 DIM P<2: 

590 DIM As *2,25) 

700 DIM 5$ (2 6* 



710 DIM CS < 2 2) 



”20 DIM DS >2 , 22* 



30 DIM ES'2-2) 



”40 LET As '!• a ,• \ 



560 PRINT TAB 0 K ' TAE 2 

^ii '^Tf 5 , 12 r— 

-se^ie*^* 7A2 1- 

570 PRINT TAB 0 

_* -«B 1” TAB 0 

x*. ■. “ 1 1 ™ 

330 PRIN T "A S 0 • TAB 13 

mmi >■ *— " TAB 0 

•AB ii J Tab i” ■■ I t 
AE 26 I S 

z 90 PRINT TAB 0 ■! tab 9 

y ’AE 15 ,* | tae 26, I 

TAB- 0 TAE 3 -■ TAE 

13 m m~ / TAB- 21 I .TAB 

90e PRINT TAE 0 -mt .* TAB 
12 -AE 1- | TAB 21 I tab 

2” *, -05 0 ^AS^^^E 

‘OXIGENIO AT 0 32-LEN PS 2 P 

S 

510 SLOW 
920 RETuPn 
930 SPUE POLVO 
940 RUN 
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MICROMAQ 



PROGRAMAS PARA CP-400 
COLOR 64 • TRS-80 COLOR COMPUTER 

A MICROMAQ o mais tradicional revendedor de software para a linha TRS-80 
COLOR COMPUTER no Brasil, em conjunto com a MICRO SISTEMAS coloca 
a disposipao dos usudrios o maior catdlogo de programas para esta linha. 




JOGOS EH ACAO EM LINGUAGEM DE MAQUINA 

101 Cuber: (32K) ajude o cuber a enf rentar os inimigos enquanto a pirSmlde muda de cor. 20.000 

102 Trapfall: <16K) sdo muitas as armadilhas (Pitfalls) e os perigos que voed enfrenta na 

cacaao tesouro. 20.000 

103 Jr. Reverenge: (32K) Climb enfrenta obstAculos ecnaturas para sal var seu pai do terri- 

vel Luigi. 20.000 

104 8 • Bail: (16K) para os amantes do jogo de bilhar. 20.000 

105 T6nis:(32K) para os amantes do jogo dettnis. 20.000 

106 Cyrus (Xadrez): (32K) para os amantes do jogo de xadrei 20.000 

107 Sea Dragon: (32K) emog^o e suspense sob as 4guas. 20.000 

108 Tubario: (16K) um jogo para quern tern nervos de ago. 20.000 

109 Vegas: (32K) sinta-se num cassinrKaga^iquel, cartas, lota dados e 21. 20.000 

110 Pic nlc: (32K) ajude a formiga a estocar alimentos. 20.000 

111 Moon Shutle: (32K) enfrente todos os obsticulos (meteoritos. bombas, etc) para des- 

truir o principe das trevas. 20.000 

t12 Zaxxon: (32K) enfrente canhdes, misseis. avides. barreiras de forga e destrua o robd 
Zaxxon 20.000 

t13 Pooyan: (32K) defenda o seu vale da mvasSo dos lobos. 20.000 

114 Froog:(32K)ajudeosapoaatraves$araruaeoria 20.000 

115 Jet-1; (16K) viva as emogdes do filme Retomo de Jedi 20.000 

116 Andrdide: (32K) elimine os andrdides e saia do labirinta 20.000 

117 Astro-Blast: (32K) batalha espacial. 

118 Pdssaros: (16K) elimine os pdssaros invasores. 

119 Buzzard Bait: (32K) ataque os p£ssaros com sua langa. 20.000 

120 Candy Co: (32K) coma doces e vitaminas para eliminar os inimigos. 20.000 

121 Cashman: (32K) pegue o dinheiro e elimine os gatos (99 telas) 20.000 

122 Clowns: (32K) fure os baides saltando na cama el&stica. 20.000 

123 Cosrr)ic:(16K) futebol americano com naves espaciais. 20.000 

124 Cpede:(l6K)mateacentopdiaeaaranha. 20.000 

125 Demon Seed: (32K) destrua pdssaros. sementes e a nave 20.000 

126 The King: (32K) salve a princesa raptada pelo King Kong. 20.000 

127 Firecopt: (32K1 apague mc6ndios e elimine incendiirios. 20.000 

128 Doodle Bug: (32K) estilo Pacman. 20.000 

129 Fury: (32K) batalha adrea 20.000 

130 Gallax Attack: (16K) batalha espacial. 20.000 

131 Gllaxxons: (16K) batalha espacial. 20.000 

132 Gobbler. (16K) tipo Pacman. 20.000 

133 Grabbler (32K) defenda-se dos inimigos em um duplo labirinta 20.000 

134 Grand Prix: (32K) corrida decarro 20.000 

135 Kron:(32K)4jogosdiferentesemum. 20.000 

136 Lunar (32K) venga os obsticulos durante um passeio de Jeep na lua. 20.000 

137 Mudpies: (32K) atire tortas e defenda-se dos cozinheiros. 20.000 

138 Pedro: (32K) defenda ojardim dos animais. 20.000 

139 Pinball: (32K). 20.000 

140 Polaris: (32K) defenda os submarinos do ataque a4reo. 20.000 

141 Draconia:(32K)salveosprisioneirosdoespagoefujadodrag8o. 20.000 

142 Bag-Man: (32K)roubeoouroefuja dos mineiros. 20.000 

143 Tut $ Tomb: (32K) enfrente os perigos de uma cavema em busca do tesouro. 20.000 

144 Willy's (32K) transpose os numeros de um lado para outro sem ser derrubado pelos 

inimigos. 20.000 

145 World’s of Flight: (32K) simulador de vda 20.000 

146 Mega Bug: (16K) fuja das baratas em um labirinta 20.000 

147 Bandits: (32K) procure tesouros em tr§s terras (fantasia, future e oeste) e enfrente os 

bandidos. 20.000 

JOGOS DE AVENTURA COM ALTA RESOLUQAO GR AFICA 

201 Calixto: (32K) ajude o arqueoiogo (prof, lagarto) a recuperar o tesouro • em ingl6s. 25.000 

202 Sea-Quest: (32K) recupere o tesouro perdido • em ingles. 25.000 

203 Shennan: (32K) encontre o tesouro no fim do arco-lris • em inglGs. 25.000 

204 Sanctum: (32K) exorcise o demdnio • em ingl8s. 25.000 



JOGOS EDUCATIVOS 

301 Jogos Educativos: (16K) sene de nove jogos educativos para criangas de 3 a 6 anos 
abrangendo f iguras, letras. nomes. numeros. soma, subtracSo e desenhos coloridos. 50.000 

302 Matemitica: { 16K) ensina as quatro operaedes bAsicas em varios niveis de dif iculdade 30.000 

303 Mem6ria4l6K) 6 o jogo clAssico de memoria onde vocA tern que descobrir duas figu- 

ras iguais. 30.000 

304 Fipuras M Agicas: (16K) associagSo de figuras e cores de seis maneiras diferentes Para 

criangas de 3 a 6 anos - Manual em inglAs 40.000 

305 Letras MAgicas: (16K) ajude o bicho papAo a comer as letras certas. Para criangas de 

3 a 6 anos - manual em inglAs. 40.000 

306 Numeros MAgicos: (16K) ajude o Grover Rover a brincar com os numeros. Para crian- 

cas de 3 a 6 anos • manual em inglAs. 40.000 

307 Correio Eletrdnico: (16K) ajude o Big Bird a entregar as correspondAncias nos luga- 

res certos. Para criangas oe 3 a 6 anos • manual em inglAs. 40.000 

308 Caga As Estrelas: (16K) jogo estratAgica VocA tern que pegar as estrelas no cAu. Para 

criangas com mais de 7 anos • Manual em inglAs 40.000 



501 Edtasm: (16K) Unguagem Assembler para o 6809 • Ml. 

502 Forth: (16K) Linguagem Forth para o 6809 Ml 

503 Logo: (32K) Linguagem educativa logo -Ml. 



SOFTWARE DE COMUNICACAO 

711 Color Terminal: (16K) software de comunicagAo para o projeto CirandAa Aruanda e Ban- 
cos de Dados Particulares. Transmite e recebe arquivos em Basic ou linguagem de mA- 
quina. BAUD RATE de 1 10 a 9600 em DUPLEX/HALF/FUL/ECHO. Tamanho da palavra 
7 ou 8 bits. Paridade par, impar ou neohuma. Stop Bits de 1 a 9. Manual em inglAs com 
30 pAginas. 120.000 

APLICATIVOS COMERCIAIS 

401 WRITTER II: (32K) editor de texto com as seguintes caracteristicas: linha de atA 240 

caracteres na impressora e 51 colunas na tela. Capacidade para imprimir caracteres 
portugueses ou simbolos especiais (atA 10). PaginagAo automAtica. CentraltzagAo au- 
tomAtica. Manual em InglAs com 90 pAginas. 120.000 

402 Elite-Calc: (16K) planilha eletrAnica com as seguintes caracteristicas: atA 255 linhas 

e colunas. Manipula textos, numeros, operadores matemAticos, f ungdes trigonomA- 
tricas e fungdes estatisticas (mAxima mlnimo, mAdia). Emite grAficos e permite or- 
denar colunas e linhas. Manual em inglAs e portuguAs - 20 a 80 000 

403 Color File: (16K) banco de dados que permite manipular 7 arquivos pr^-definidos (en- 
deregos, despesas, investimentos...). VocA tambAm pode definir os seus prdprios ar- 
quivos com campos alfabAticos ou numAricos. Manual em inglAs com 10 pAginas. 60.000 

utilitArios 

601 Color Kit: (32K) utilitArio em Assembler que complementa o Color Basic com mais de 
30 fungdes para facilitar a programagSo em-Basic ou linguagem de mAquina. Manual 

em inglAs com 30 pAginas. 80.000 

602 Stripper (16K) utilitArio que permite compactar programas em Basic eliminando bran- 

cos. comentArios e concatenando linhas. 40.000 

603 Tiny Compiler (16K) utilitArio que permite compiler a maiona dos comandos Basic e 

extended Basic Manual em inglAs. 80.000 

604 Super Screen: (16K) aumenta o tamanho da tela. 0 Color passa a trabalhar com 57 co- 
lunas e 24 linhas. 40.000 

605 Disassembler (16K) disassemblador de programas em linguagem de mAquina. 40.000 

606 Hambug: (16K) permite analisar byte a byte qualquer programa Basic ou em lingua- 
gem de mAquina. Manual em inglAs. 50.000 



SIM. Desejo receber os seguintes programas pelo<s) qual(is) 
pagarei a quantia de CrS 



NOME: 



CIDADE: . 



Para tal, estou enviando um cheque nominal d ATI Editora Ltda.. Av. Presidente Wilson, 165 
- Grupo 1210 - Centro, CEP 20.030 - Rio de Janeiro • RJ. • Despesas de Correio incluldas 






TABELA 
DE DESCONTO 



at6 50.000,00 • sem desconto 
de 51.000,00 a 100.000,00 - 5% 
de 101.000,00 a 150.000,00 - 10% 
de 151.000,00 a 200.000,00 - 15% 
Aclma de 200.000.00 - 20% 







Jorge Alberto Correia B. Soares 



Passe para o micro a cansativa tare- 
fa de representar as fun^es matemdti- 
cas com este programa que desenha 77 
cuivas planas, algdbricas ou transcen- 
dentes, e aceita, para isso, tres tipos dis- 
tintos de coordenadas: cartesianas, pola- 
res e paramdtricas. 

No quadro Equa 9 $es das curvas, 
apresentamos as 77 expressOes em BA- 
SIC das curvas desenhadas por este pro- 
grama. O funcionamento do programa 6 
simples: ele inicia imprimindo na tela 
a pergunta FORMULA?, solicitando as- 
sim que se digite a equasffo que se quer 
desenhar. 

Se quisermos, por exemplo, obter o 
tra 9 ado da elipse dada na equa^o nu- 
mero 5 do quadro, devemos digitar a 
fdrmula R= 6/(2-SIN T) e em seguida 
teclar NEW LINE ou ENTER. 0 vfdeo 
ficard sem imagem por alguns segundos 
(enquanto o programa executa os cdl- 
culos em FAST) e logo ap 6 s comefard 
a se delinear na tela, ponto por ponto, o 
grdfico da elipse digitada. 

E na tela, no canto inferior esquerdo. 
o programa perguntard: OUTRA CUR- 
VA?, lembrando que acionando qual- 
quer tecla pode-se iniciar um novo ci- 
clo de processamento. 

0 programa foi ainda estruturado de 
forma a permitir a entrada de quatro 
formas diferentes de equates: 

H Y = (expressffo) 

2) R = (expressJo) 

3) R**2 = (expressSo) 

4) X = (expressffo), seguido de Y = 

(expressSo) 

A forma 1 corresponde k utiliza^o 
de coordenadas cartesianas, com fun- 
90 es de imagem y = f(x). As formas 2 e 
3 pressupoem a utiliza 9 ^o de coordena- 
das polares. com fun 90 es de imagem 
r=f(t) ou r* =f(t). 

A forma 4 induz k utiliza^o de co- 
ordenadas param^tricas com duas equa- 
95 es conjugadas de imagem x=f(t) e 



Sinclair Sinclair Sinclair sin 



Curvas fantasticas 



y = f(t). Neste caso, 6 preciso ter sem- 
pre o cuidado de digitar em primeiro 
lugar a equa 9 ffo X (expressSo). Ap 6 s 
a entrada da equa 9 ^o X, o programa per- 
guntard FORMULA DE Y?, solicitando 
entrada ent£o da segunda equa^o con- 
jugada, isto Y = (expressSo). 

RESTRigOES AO DOMlNlO 

Para se obter a representa 9 fo grdfica 
de fun^Ges 6 sempre necessdrio estabele- 
cer o intervalo do domfnio dentro do 
qual desejamos a imagem geomdtrica. 
Um exemplo pode evidenciar melhor 
como este programa define um interva- 
lo: vamos supor que desejamos o grdfico 
de y = f(x) para valores de x compre- 
endidos entre c e d, ou ent£o em nota- 
980 matemdtica.y = f(x), c < = x < = d. 
0 programa faz isto, implicitamente, 
usando os parametros C e D para espe- 
cificar, respectivamente, os limites infe- 
rior e superior do intervalo, e atribuindo 
automaticamente valores a C e D, va- 
lores que sZo os mais adequados k maio- 
ria das fun^es (observe na listagem do 
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Exemplo de so (da do programa 



programa Curvas fantasticas as linhas 
140, 150,500,510, 1040 e 1050). 

Mas hd casos em que esta especifi- 
ca 93 fo do intervalo precisa ser feita ex- 
plicitamente: para evitar paradas no mi- 
cro provocadas por cdlculos impossi- 
veis, ou para se obter melhor defini 9 So 
grlfica de certos tf echos especificos da 
fun 9 ^o. Essa especifica 9 aio explicita 6 
sempre feita ao final das equa 90 es da 
seguinte forma: 

Y = (expressao) :C, D: 

R = (expressSo) :C, D: 

R**2 = (expressSo) :C, D: 

A especifica 9 Jo do intervalo, no caso 
de coordenadas paramdtricas, foi pre vis- 
ta no final da segunda equa 9 ffo conju- 
gada, ou seja, Y = (expressSo) :C, D: . 
Uma outra espdcie de restr^ffo ao domi- 
nio 6 feita nas linhas 200 e 590 da lis- 
tagem do programa, com o objetivo, 
neste caso, de estabelecer um equili- 
brio adequado entre escala horizontal 
versus escala vertical. Alids, este 6 um 
sdrio problema, por exemplo, nas curvas 
assintdticas. E af temos que dar um jeito 
de ignorar valores muito altos de uma 
coordenada em re^ffo k outra, senSo 
corremos o risco de tra 9 armos imagens 
emboladas e com pdssima defini 9 fo. 

Este programa procura tambdm uma 
foima automdtica de evitar as paradas 
de processamento provocadas por cdlcu- 
los impossfveis e, por isso, tentou-se 
n£o utilizar as divisGes por zero e a 
extra 9 do da raiz quadrada de numeros 
negativos * (dispositivos deste tipo estdb 
armados nas linhas 500 e 640 da lista- 
gem). 



CONVITE FINAL 

Quern quiser continuar pesquisando 
sobre esta temdtica tern vdrias op 90 es 
a seguir, sendo que a literature existen- 
te sobre Geometria pode ser uma boa 
fonte de consulta para novas imple- 



10 


PEM -CURU*5 FANTASTICAS 


610 


NEXT T 




1600 


NEXT P 


20 


PEM MICRO 5 1 STEM A 5 - JACB5 


620 


GOSUB 2500 




1610 


FOP S=P+1 TO LEN AS 


30 


CIM A 1 SO 1 


630 


GOTO 3000 




1620 


IF AS IS) = • THEN LET D=UAL 


40 


DIM 8(80) 


640 


IF SGN UAL B S = - 1 THEN GOTO 


AS rP*l TO S-l 1 


50 


LET 1=0 


610 






1630 


NEXT 5 


60 


i_ET MIN =0 


650 


LET E=SOP UAL ES 




1640 


GOTO 1550 


70 


i_ET MAX =0 


660 


LET X=E*C05 T 




1650 


LET C»UAL hS(N+1 TO P-1 


60 


i_ET AUX=0 


670 


wET =E*SIN T 




1660 


GOTO 1610 


90 


PRINT AT 6.10 FORMULA T 


660 


GOTO 590 




2000 


LET 1=1+1 


100 


INPUT AS 


1000 


LET CS=hS\3 TO LEN AS' 




2010 


LET A > I sX 


110 


CL5 


1010 


PRINT AT 66. "FORMULA DE Y? 


2020 


LET B l I « *Y 


120 


IF Hi 1 i s"R" THEN GOTO 500 




INPUT AS 




2030 


IF M IN > X THEN LET M IN sX 


130 


IF hi lis-X THEN GOTO 1000 


1020 




2040 


IF M IN > v then LET MIN = X 


140 


uET C=-10 


1030 


CLS 




2050 


IF M A X < = X THEN LET MAX = a 


150 


i-ET D =1C 


1040 


LET C=0 




206O 


IF max sY then let MAX = 


160 


G05UB 1500 


1050 


LET D =2 




2070 


RETURN 


170 


_ET G =4 4 D 


1060 


GOSUE 1500 

FOR T=C*PI TO D+PI STEP 




2500 


LET DS= + 


ISO 


POP X«C TO D STEP (D-C) /79 


1070 


(D* 


2510 


PRINT A- 11.15, Df 


190 


^ET < =UAL ES j 

IF AB5 G THEN GOTO 220- 


PI-C*PI) /79 




2520 


PRINT AT 0.15.DS 


200 


1060 


LET XsUAL CS 




2530 


PRINT AT 11.3.DS 


210 


GO SUB 2000 


1090 


let r«UAL Es 




2540 


PRINT AT 21 . 15, DS 


220 


NEXT X 


1100 


GOSUE 2000 




2550 


PRINT A" 1 " 11 .27. DS 


230 


GOSUB 250O 


ill© 


NEXT T 




2560 


IF AUX =ABS MIN THEN LET AU 


240 


GOTO 3000 


1120 


GOSUE 2500 




<=AB5 MIN 


500 


LET C = . 004 


1130 


GOTO 3000 




2570 


IF AUx aABS MAX THEN LET AU 


510 


let D =2 


1500 


FAST 




X =AE 5 MAX 


520 


GOSuE 1500 


1510 


let as=as+ " 




2560 


^ET K =21 AUX 


530 


LET H=4*D 


1520 


FOR N = 1 TO LEN AS 




2590 


SLOU 


540 


FOR T =C *P I TO D^PI STEP «D + 


1530 


IF AS IN) = THEN GOTO 


1530 


2600 


FOR N = 1 TO I 


PI-C*PI> /79 


1540 


NEXT N 




2610 


PLOT A(N)*K+31.B(N) *K-f21 


550 


I p AS 2* =• Then GOTO 640 


1550 


l.ET E $ =A$ (3 TO N-l) 




2620 


NEXT N 


560 


let F=UHL B$ 


1560 


I F AS '2) < >'•=•■ THEN LET 


BS=R 


2630 


RETURN 


570 


let X«F*CQ5 T 


$ (5 TO N-l> 




3000 


PRINT AT 21,0; “OUTRA CURUA^ 


5S0 


LET ,=F*5IN T 


1570 


RETURN 




•* 


590 


I F ABS X >H OP AB5 Y > H THEN 


1560 


FOR P =N ♦ 1 TO LEN AS 




3010 


INPUT 1$ 


GOTO 


610 


1590 


IF AS ‘Pi = THEN GOTO 


1650 


3020 


CLS 


600 


GOSUB 2000 








3030 


GOTO 50 



Curvas Fantdsticas 



menta^es: Tambdm 6 vdlido inventar 
novas curvas, alterando-se parametros de 
equa 95 es jd conhecidas ou misturando- 
se partes de duas fun 90 es. 

Efeitos grdficos especiais podem ser 
incrementados com a altera 9 do do pro- 
grama de forma que as imagens de duas 
fun 9 < 5 es fiquem sobrepostas no video, 



ou ainda criando-se o efeito caleisdo- 
cdpio com a simples repet^do de diver- 
sas imagens da mesma fun 9 ^ 0 . 

fi interessante notar que as curvas 
a partir do numero 59 do quadro de 
Equa 9 des nSo possuem nome especi- 
fico e estdo ali representadas em re- 
conhecimento ao seu efeito estdtico 



singular. As curvas de Bowditch ou de 
Lissajous (equa 9 do numero 53 do qua- 
dro) sdo um exemplo tipico de convi- 
te k pesquisa, pois permitem que se ob- 
tenha iniimeras formas diferentes de 
curvas com a mera mudan 9 a dos para- 
metros da equa 9 do. Enfim, 6 s 6 expe- 
rimentar e comprovar. 



A GUARDIAN GARANTE 
ENERGIA ATODA PROVA 




Geratron* Estabilizadores de tensao 



GERAD0R ELETR0NIC0 GERATR0N: 
A PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
deemerggncia. Capacldade de 200 VA, 
com autonomia de ate 90 minutos. 

ESTABILIZADORES DE TENSAO 
GUARDIAN: A PROVA DE 
FLUTUAtfES E TRANSIENTES. 

Ultra-rdpidos, protegem o seu CPD con- 
tra variagfles da rede em ate + 22% e es- 
tabilizam a saida em + 1 %. Incorporam 
filtro na entrada, transformador isolador 
e chave de transferfincia para a rede. Ca- 
pacidadede0.25 KVA a 100 KVA. 




SISTEMA NO BREAK GUARDIAN: 
AT00A PROVA. 

E a solugao mais completa contra tran- 
sientes, tlutuagOes e talta total de ener- 
gia. A Linha Bisica varia de 2,5 KVA a 
100 KVA. DispOe de chave estetica de 
saida e utiliza tecnica de sintese da for- 
ma de onda senoidal, com tiristores. 

A Linha EconOmica 6 a solugao para 
CPD's de pequeno porte, com capacida- 
dede0.25 KVA a 5 KVA. 

N3o deixe que a ma qualidade da energia 
etetrica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 



GUARDIAN 



Equipamentos EletrOnicos Ltda. 

Rua Dr Gamier. 579 
Rio de Janeiro • CEP 20.971 
Rio PABX (021) 261-6458 - (021) 201-0195 
Telex (021)34.016 
S30 Paulo: (011) 270-3175 

REPRESENTANTES EM T0D0 0 BRASIL 
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CURVAS FANTASTICAS 



AGORA £ MAIS FACIL ASSINAR 

_. ./Micro 
Sistemas 



Para sua maior comodidade, 
a ATI Editora Ltda. 
coloca d sua disposipao 
os seguintes endere^os 
de seus representantes autorizados: 



RIODE JANEIRO 

ATI Editora Ltda. 

Av. Presidente Wilson, 1 65 - Gr. 1 21 0 
CEP 20030 - Tels.: (021) 262-5259 



SAO PAULO 
ATI Editora Ltda. 

Rua Oliveira Dias, 153 

CEP 01433 - Tels.: (011) 853-3800 



PORTO ALEGRE 

Aurora Assessoria Empresarial Ltda. 

Rua Uruguai, 35 sala 622 

CEP 90000 - Tel.: (0512) 26-0839 



SALVADOR 
Marcio Augusto N. Viana 
Rua Rodrigo Argolo, 279/203 
CEP 40000 - Tel.: (071 ) 240-5727 



EQUAQ0ES DAS CURVAS 



/W 



O PROCESSADOR 
DE TEXTO 



A-B-C UM PROGRAMA QUE 

□ COMPATlVEL COM A LINHA IBM-PC 

OeSCREVE E IMPRIME EM PORTUGUfcS 

D FACIL DE APRENDER 

QtODAS AS RESPOSTAS ACIMA 
E MUITAS OUTRAS 



PC SOFTWARE E CONSULTORIA LTDA. 
Av. Almte. Barroso, n.° 91, gr. 1102 - RJ 
Tels.: (021) 220 5371 e 262 6553 
CONTATOS ABERTOS PARA REPRESENTANTES 
EXECPLAN 

Rua Frei Caneca, 1407 10.° andar 01307 






Fungao constante 
Y=5 

F unijao valor absoluto 
Y=ABS X 

Fungao linear (llnha reta) 
Y=X/3*2 

Cl rcunf crenel a 
R=6 

El Ipse 

R=6/ (2-SIN T) 

Parabola 
V»X*X : -2 , 2 : 

Fungao fraclonarla 
Y=1/(X*X):-3, 3: 

Parabola cublca 
Y*X*X # X : -1 . 5, 1.5: 

Parabola sealcublca ou de Neil 
Y s (X*X)**(1/3) 

Hlperbole 
R s 4/ (2- 3*C0S 1) 

Hlperbole equllatera 
V*1/X:-4,4: 

Curva exponencial 
Y= 1 . 3**X 

Curva logarltalca 
Y S LN X : . 2 , 2 : 

Curva de probabl 1 i dade ou de 
Gauss 

Y=EXP 1**( -X*X):-2,2: 

Senoide 

Y=SIN X : -PI ,PI : 

Co-senol de 
V*C0S X : -PI , PI x 
Tangentoide 
Y»TAN X : -4 . 7 , 4 . 7 : 

Secantolde 

Y=1 /COS X:-4.7,4.7: 

Inversa da senoide 
Y=ASN X : -1 , 1 : 

Inversa da co-senolde 
Y=ACS Xs-1,1: 

Inversa da tangentoide 
Y=A T N X 

Cicloide de cusplde na orlgea 
XsT-SIN T 
Yal-COS T : -2 , 2 : 

Cicloide de vertice na orlgea 
XaT *S I N T 
Yal-COS T : -2 , 2 : 

Cicloide alongada 
X=3*T-5*SIN T 
Y«3-5*COS T : - 3 , 3 : 

Cicloide encurtada 
X=4* T - 3*SI N T 
Y=4 - 3*C0S Ts-3,3: 

Catenarla 

Ya(£XP 1**X*EXP 1**-X)/2:-2,2: 
Eplclclolde de 4 cuspides 
X=5*C0S T-C0S ( 5* T ) 

Y s 5*SIN I -SIN < 5* T ) 

Deltolde ou hipociclolde 

trlcuspide 

X=2*C0S T.C0S ( 2 • T ) 

Y=2*SIN T-SIN (2*T) 

Astroide ou hipociclolde de 
4 cusplde 

X*C0S T*C0S T *C05 T 

Y*SIN T*SIN T*SIN T 

Evolvente da circunf erencia 

X=5*C0S T ♦5*T*SIN T 

Y«5*SIN T - 5* T*C0S T 

Concoide de reta ou de Nlcoaedes 

R=(?/C0S T) . ): - 1 .4, 1 .<*: 

C 1 s so 1 de de Diodes 
R=2*TAN T • S I N TsO.I: 
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33) Estrofolde 

R s - 3*C0S ( 2*T ) / ( COS T) 

34) Ofiuroide 

R s 4*SIN T- ( 2*S IN T*SIN T/C0S T):0,1: 

35) Follua de Descartes 

R s ( 6*SIN T *C0S T ) / ( SIN T*SIN T* 

SIN T «C0S T *C0S T*C0S T) 

36) Trissectrlz de Maclaurin 
R=4*SIN ( 3*T ) /SIN (2*T) 

37) Quadratriz de Hlplas ou de 
Dinostrato 

R=( 2* T ) / ( PI *SIN T ) : - . 2 , . 5: 

38) C rue l f or ac 
R*2 /SIN < 2 • T ) 

39) Curva de Gutschoven 
R*1 / T AN T 

40) Cublca de Agnesi ou N verslera N 
Y**8/(4»X # X):-5,5: . 

41) Blfoliua 

R=5*SIN T*C0S T *C0S T 

42) Leanlscata de Bernoulli 
R**2*C0S ( 2 • T ) 

43) Leanlscata 
R**2=SIN (2*T) 

44) Rosacea de 3 folhas 
R*SIN (3*T) 

45) Rosacea de 4 folhas 
R*C0S ( 2* T ) 

46) Rosace^ de 5 folhas 
RaSIN (5*T) 

47) Rosacea de 8 folhas 
RsSIN ( 4* T ) 

48) Caracol de Pascal 
R=4*C0S T«2 

49) Cardiol de 
R=4*C0S T ♦ 4 

50) Cocleolde 
R=3*SIN T/T: -2,2: 

51) Nefrolde de Freeth 
R=W2*SIN ( T/2 ) : -2 , 2 : 

52) Nefrolde de Proctor ou Epici- 
clolde de Huygens 
X=5*(3*COS T-C0S ( 3* T ) ) 

Y=5*(3*SIN T-SIN (3*T)) 

53) Curvas de Bowdltch ou de 
Lissajous 

a) X=SIN ( 3* T ) Y«SIN T 

b) X s S I H (T/24PI/8) V=SIN T :0 ,4: 



c) X*SIM ( 3 / 2 * T ) Y=SIN T 

d) X*SIN (2*T) Y*SIN T 

e) X=SIN <3M*PI/2) Y*SIN T 

f) X»SIH ( 3* T *PI /4 ) Y=SIN T 

g) X=SIN ( T/2«PI / 16 ) Y=SIN Ts0,4: 

54) Espiral de Arqulaedes 
R*T : 0 , 3 : 

55) Espiral parabollca 
R**2 S 4*T:0,3: 

56) Espiral logarltalca 
R=EXP 1 • • < T /5) : -5/ 10,3: 

57) Espiral hiperbolica ou reciproca 
R=2*PI / T : 1 / 10 , 3: 

58) Lltuus 
R**2=PI/T:1/10,4: 

59) Ra) / 4 * S I N T 

60) R-SIN C T / 3 ) : 0 . 3 : 

61) R*1 -IN T: 1/ 10,4: 

62) R = 1 -SIN (3/2*1) 

63) R-SIN T *C0S (2*T) 

64) RsSIN ( 2* T ) -SIN T 

65) R=SIN (2*T):-1/2,1/2: 

66) R=SIN (4*T):-1/2,1/2: 

67) R— 2 »C0S ( 5* T ) 

68) R s SIN (T/2):0.4: 

69) R S T *C0S T : -2 . 5 , 2 . 5 : 

70) R=SIN (T* 3/2):-. 25, 2. 93: 

71) R=S I N <1.5*T* PI/2):. 25, 1.77: 
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Lista telefonica 

Paulo de Carvalho 



Fa$a a sua lista telefonica particular com este programa que 
permite arquivar em fita cassete, alterar dados durante a digi- 
tal ou at6 depois da grav^So, consultar por nome ou nu- 
mero de telefone, aldm de listar todos os nomes do arquivo 
no video. 

Com capacidade para arquivar atd 200 nomes, esta lista te- 
lefonica tern ainda caracteristicas peculiares: possibilita a lista- 
gem, durante a consulta, de todos os nomes identicos existen- 
tes no arquivo (por exemplo: todos os Paulos de sua agenda se- 
rSo listados de uma vez); e lista tambdm todos os nomes refe- 
rentes a um mesmo numero de telefone. 




Ap6s digitar o programa Lista Telefonica , de RUN e aguar- 
de que o video mostrard o menu principal com oito opsOes, 
que sSo, detalhadamente, as seguintes: 

1 — Cadastrar : para iniciar o cadastramento, digite 1 e ENTER 
que o sistema apresentard na tela o menu de cadastramento, 
com todos os itens a serem informados. Depois de teclar o 
item desejado, aperte ENTER para que o cursor passe para o 
prdximo item. No topo da tela aparecerd ent£o a mensagem: 
PARA PARAR O ARQUIVO DIGITE “FIM”. E digitando-se 
“FIM”, em lugar do nome, o programa retomard ao menu 
principal, sendo que ao lado dessa mensagem surgird o numero 
do nome que estd sendo digitado. 

2 — Listar arquivo : como o nome diz, esta opq&o lista todos os 
nomes constantes do arquivo - tanto ap6s a leitura da fita 
como ao Fun da digitado. Quando terminar a listagem do ul- 
timo nome, o micro perguntard: LISTAR NOVAMENTE 
S/N? A op^To N faz o programa retornar ao menu principal. 
Ao lado de cada nome listado, 6 apresentado o numero de or- 
dem desses nomes na varidvel de controle. 

3 — Ler arquivo K-7: com esta op^o pode-se ler todos os da- 
dos de cadastro gravados em cassete e transferidos para a me- 
m6ria do equipamento, estando o plug do micro conectado na 
entrada REMOT do gravador. Depois que o micro tiver lido to- 
dos os cadastros da fita, o programa retorna ao menu princi- 
pal e o gravador serd automaticamente desligado. Para iniciar 
a leitura, tecle S que o gravador ser A ligado. 

4 - Consulta por nome: tecle 4 e ENTER que o programa per- 
guntar£: QUAL O NOME A CONSULTAR? Entre com o nome 
e o programa fard ent£o a comparasffo entre o nome digitado e 
os nomes que existem na memdria. Ao localizar um nome igual 
ao digitado, a tela exibe o nome, endere 90 , telefone, cidade e 
estado. Em seguida, o programa apresenta a mensagem: 
P/CONTINUAR APERTE “ENTER”. Teclando-se ENTER o 
programa prosseguird na pesquisa, localizard outro nome e 
mostrard todos os dados referentes ao nome digitado, e assim 
sucessivamente atd que nSb exista mais na memdria nenhum 
nome igual ao digitado. Ap6s isso, o programa perguntard se 
o usudrio deseja fazer nova consulta; se a resposta for negativa, 
o programa retornar^ ao menu principal. 

5 — Gravar arquivo K-7: a gravasffo em fita de todos os dados 
do cadastro (que, conforme j i citamos, tern a capacidade ma- 
xima de 200 nomes) deve ser feita apds a digitado de todos os 
nomes e seus respectivos dados. Para tal, entre com esta op^o 
(5), coloque a fita no gravador (nffo esquecendo de verificar 
se a fita estd no inicio da parte magndtica), pressione a tecla 
PLAY/RECORD do gravador e depois aperte a letra S do 
microcomputador. Ao fim da grava 9 <fo o programa automati- 
camente volta ao menu principal. 
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LISTA TELEFONICA 



to REM LISTA TELEFONICA - I*. OE l.ARVALHO 
20 REM CURITIBA - PR. - JUNHO/04 
30 CLEAR 6000 

40 OIM NS!200)» DIM E»!200>*DIM Rt<200> 

30 DIM TK 200) * DIM C*!200)» DIM S*!200) 

60 CL6 

63 KS-STRINGf! 15,58) 

70 PRINT KS»"L ISTA TELEFONIC A"»K% 

80 PRINT 

90 PRINTTAB(i5) "OPCOES DO PROGRAMA" 

100 PRINTTAB ( 10 > "CADASTRAR - 1" 

110 PRINTTAB! 10>"LISTAR ARQUIVO - 2" 

120 PRINTTAB ( 10)"LER ARQUIVO K-7 »" 

130 PR INTTAB < 10 ) "CONSULTA P/NOME * 4" 

140 PRINTTAB < 10) "OR AVAR ARQUIVO K-7.- 5" 

150 PRINTTAB! 10 > "CONSULTA P/NR FONE.- 6" 

160 PRINTTAB! 10) "ALTERAR DADOS - 7" 

170 PRINTTABtlO) "CONT I NUAR /AROUlOO . . - 0" 

100 PRINTTAB! 10) "DIGITE A OPCAO ">* INPUT AX 

190 IF AX! 1 OR AX >8 GOTO 1440 

200 IF AX-1 GOTO 280 

210 IF AX-2 GOTO 480 

220 IF AX-3 GOTO 630 

230 IF AX-4 GOTO 730 

240 IF AX-5 GOTO 1030 

250 IF AX-6 GOTO 1140 

260 IF AX-7 GOTO 1450 

270 IF AX-0 GOTO 1760 

280 CLS 

290 T-0 

300 Y-YM 

310 PRINTTAB ! 10) "P /PAR AR 0 ARQUIVO DIGITS < FIM > - NOME NR "» 

Y | 

330 G0SU8 1670 

340 PRINTS 4*64*12," "» 

350 INPUT NS! Y > 

360 IF NS!Y>-"FIM" GOTO 60 
370 PRINTS 6*64*12," "| 

300 INPUT ES! Y > 

390 PRINTS 8*64*12," ", 

400 INPUT RS!Y> 

410 PRINTS 10*64*12," 

420 INPUT TS!Y) 

430 PRINTS 12*64*12," "» 

440 INPUT CS!Y> 

450 PRINTS 14*64*12," "* 

460 INPUT SS!Y) 

470 CLS* GOTO 300 

480 CLS* PR INTTAB < 20>"L ISTAGEM" 

490 Y-0 
300 V-Y*l 

510 IF Nf(Y)-"FIM" GOTO 570 
520 PRINT 

330 PRINTTAB ! 1 )" ",Y, xPRINTTAB! 10)" NOME* ",NS!Y> 

540 PRINTTAB ! 10)" FONE* "|Tf!Y>| " CIOADE * "»C*! Y> »"-"*SS!Y 

) 

550 FOR K-l TO 300*NEXT K 
360 GOTO 500 

570 PRINT*PRINT"LISTAR NOVAMENTE ! S/N > ?" 

580 Rf-INKEYS 

590 IF RS-" " GOTO 380 

600 IF RS-"S" OOTO 480 

610 IF R*-"N" GOTO 60 

620 GOTO 580 

630 CLS 

640 PRINTTAB <10>"LEITURA" 

650 PRINT"PREPARE 0 K-7 E DIQITE 'S' " 

660 RS-INKEYS 

670 IF RS< >"S" GOTO 660 

6B0 Y-0 

690 Y-Y*l 

700 INPUTR-1, NS!Y), E1!Y>. Rf!Y>, TS!Y) r C*!Y>, SS!Y) 

710 IF NS! Y >-"FIM" GOTO 60 
720 GOTO 690 
730 CLS 

740 PRINTTAB! 15) "CONBULTA P/ NOME" 

730 PRINTTAB! 15) "NOME * "» 

760 INPUT N1S 
780 Y-0 
790 Y-Y-H 

800 IF NS! Y)-N1S GOTO 830 
810 IF NS! Y>-"FIM" GOTO 930 
820 GOTO 790 
830 CLS 

840 PRINTTAB! 15)"C0NSULTA P/ NOME" 

850 PRINT 

860 PRINTTAB! 10)"N0ME * "» NS! Y > *PR INTTAB ! 10 > "ENDERECO. .. * 

",ES!Y)| ", " | RS ( Y ) 

870 PRINTTAB! 10)"F0NE * ", TS ! V ) *PR INTTAB < 10 ) "CIDADE 

,CS! Y ) , " - ",SS!Y> 

880 PR I NT * PR INTTAB < 10)"P/C0NTINUAR TECLE ! E N T E R > " 

890 RS-INKEYS 

900 IF RS! > CMRS! 13) GOTO 890 

910 PRINT 

920 GOTO 790 

930 Y-0 

940 Y-Y*l 

930 IF NS!Y)-N1S GOTO 980 
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960 IF NS! Y)-"FIM" GOTO 1130 
970 GOTO 940 
980 PRINT 

990 PRINT "OUTRA CONSULTA < S/N > ?" 

1000 RS-INKEYS 

1010 IF RS-" " GOTO 1000 

1020 IF RS-"S" GOTO 730 

1030 IF RS-"N" GOTO 60 

1040 GOTO 1000 

1050 CLS 

1060 PRINTTAB! 15)" GRAVACAO" 

1070 PRINT'PREPARE 0 K-7 E DIGITE 'S' " 

1080 RS-INKEYS 

1090 IF RS< >"S" GOTO 1080 

1100 FOR Y-i TO 200 

1110 PRINTR-1. NS ! Y ) , ES!Y), RS!Y>, TS!Y>, CS!Y>, SS!Y) 

1120 IF NS! Y)»"FIM" GOTO 60 
1125 NEXT Y 

1130 PRINTTAB! 15)"NA0 CONSTA OA LISTA"* FOR K-l TO 600*NEXT K*GO 
TO 980 
1140 CLS 

1150 PR INTTAB! 20) "CONSULTA P/No DE TELEFONE" 

1160 PRINTTAB! 10)"F0NE * "» 

1170 INPUT T IS 
1180 Y-0 
1190 Y*Y*1 

1200 IF TS! Y)-T1S GOTO 1230 
1210 IF NS! Y )— "FIM" GOTO 1330 
1220 GOTO 1190 
123U LLS 

1240 PRINT*PRINTTA8! 10 ) "CONSULTA P/ No DE TELEFONE" 

1250 PRINTTAB < 10) "NOME * ",NS!Y) * PR INTTAB! 10) "ENDERECO. . . * 

" ;ES ! Y ) ," , ",RS!Y> 

1260 PRINTTAB! 10)"F0NE « ",TS!Y)*PRINTTAB! 10) "CIDADE * 

",CS!Y>," - ",SS!Y> 

1270 PRINT*PRINTTA8! 10) "P/CONTI NUAR TECLE (ENTER > " 

1280 RS-INKEYS 

1290 IF RS! >CHRS!13)G0T0 1280 
1300 GOTO 1190 
1310 PRINT 

1320 PRINTTAB ! 10)"NA0 CONSTA DA LISTA"*FOR K-t TO 600* NEXTK *GOTO 
1300 

1330 Y-0 
1340 Y-Y*l 

1350 IF TS!Y)-T1S GOTO 1380 
1360 IF NS!Y)-"FIM" GOTO 1320 
1370 GOTO 1340 
1380 PRINT 

1390 PRINTTAB!3)"0UTRA CONSULTA < S/N > ?" 

1400 RS-INKEYS 
1410 IF RS-" " GOTO 1400 

1420 IF RS»"S" GOTO 1140 

1430 IF RS-"N" OOTO 60 

1435 GOTO 1400 

1440 PRINTTAB! 10)"0 PCAO INVALIDA "*FOR K-l TO 600*NE 
XTK *GOTO 60 
1450 CLS 

1460 PRINTTAB ! 15) "A LTERACOES" 

1470 PRINTTAB! 10) * INPUT"QUAL 0 NOME A ALTERAR ",N1S 
1480 Y-0 
1490 Y»Y*1 

1500 IF NS ! Y ) -N1S GOTO 1590 
1510 IF NS ! Y ) «"F IM" GOTO 1010 
1515 GOTO 1490 

1520 PR INT*PR INTTAB! 15 ) "A LTERACOES" 

1530 PRINTTA8!10)* INPUT "NOME * ",NS!Y) 

1540 PRINTTAB! 10) * INPUT"ENDERECO. . . * ",ES!Y> 

1550 PR INTTAB ! 10 ) * I NPUT "NR * ",RS!Y> 

1560 PR INTTAB ! 10) * I NPUT" TELEFONE . . . * ",TS!Y> 

1570 PRINTTAB!iO)« INPUT"C IDADE * ",CS!Y) 

1580 PRINTTAB! 10) *INPUT"EST ADO 

1585 GOTO vO 
1590 CLS 

1600 PRINTxPRINTTAB ! 10) "NOME * ",NS« Y > *PR INTTAB ! 10)"ENDERE 

CO...* ",ES! Y) ,RS!Y) *PR INTTAB! ",TS!Y)*PRIN 

T T AB ! 1 0 ) "C I DADE * "|CS<Y>|" - ",SS!Y) 

1610 PRINT*PRINTTAB!10)"E ' ESTE 0 NOME A ALTERAR ! S/N > 7" 

1620 RS-INKEYS 

1630 IF RS-'' " GOTO 1620 

1640 IF RS-"S" GOTO 1520 

1650 IF R S-"N" GOTO 1490 

1660 GOTO 1620 

1670 KS-STRINGS! 17,58) 

1680 PR INT *PRINT KS,"C ADASTRAMENT 0";KS 

1690 PRINTS 4-64, "NOME * ", 

1700 PRINTS 6*64. "ENDERECO...* ", 

1710 PRINTS 8*64, "NR * ", 

1720 PRINTS 10*64 , "TELEFONE. . . * : 

1730 PRINTS 12*64. "CIDADE : 

1740 PRINTS 14*64, "ESTADO * ", 

1750 RETURN 
1760 CLS 
1770 Y-0 
1780 Y-YM 

1790 IF NS!Y)»"FIM GOTO 310 
1800 GOTO 1700 

1810 PRINTTAB! 10)"NA0 CONSTA DA LISTA"*FOR K-l TO 600 * NEXT K *GOT 
0 60 



6 - Consulta por telefone: para fazer esta consulta, basta for- 
necer o numero do telefone: o programa pesquisard e exibi- 
r d na tela todos os dados relativos a este numero. Esta op 9 £o 
funciona da mesma forma que a op^o Consulta por nome, 
inclusive com as mesmas mensagens. 

7 - Alteragdd de dados: este item permite a altera^o de da- 
dos durante a digita^o, ou mesmo ap6s a grava^ffo dos dados 
em fita. Na primeira hipdtese, serd necessdrio digitar todos os 



nomes a serem cadastrados, anotando apenas o nome que se 
quer modificar para, posteriormente, fazer as corre^Oes deseja- 
das. 

Para modificar, no entanto, os dados jd gravados em fita, j 

deve-se, primeiro, utilizar a op^So 3 do menu principal e pro- f 

ceder a leitura de todos os dados arquivados em fita. Ap6s a J 

leitura (sempre lembrando de retomar a fita atd o inicio), o 
programa mostrard a mensagem: ALTE RANGES e QUAL O _ 
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NOME A ALTERAR. Digite entdo o nome a ser modificado, 
que o programa, ao encontrar o nome solicitado, mostrard na 
tela todos os dados referentes ao nome pedido e, em seguida, 
perguntard: E ESSE O NOME A ALTERAR S/N?. fi preciso 
aten^Jo ao verificar (comparando-se os dados) se e realmente 
este o nome a ser corrigido, ou se 6 somente um homonimo. 
Se ndo for o nome que se quer mudar, basta teclar N que o 
programa passard para outro nome igual existente no arquivo. 
Mas se for o nome a ser corrigido, responda S que o video per- 
guntard NOME? e o cursor ficard na pos^do do nome atd que 
se entre com o nome certo. 

Supondo-se, entretanto,.que o nome que se quer corrigir 
seja outro, tecle ENTER que o nome nSo serd alterado e o pro- 
grama passard para outro item, e assim sucessivamente ate 
aparecer o item a ser corrigido. Entre entdo com os dados cor- 
retos correspondentes dquele item e pressione ENTER para o 
cadastro se atualizar. Para retomar ao menu principal, 6 s 6 
continuar apertando ENTER. 

Este cadastro, por en quanto, somente estd atualizado na 
memdria do micro, falta ainda atualizar a fita cassete. Para al- 
terar os dados da fita, pressione a tecla PLAY/RECORD do 
gravador e entre com a op 9 do 5. 

8 — Continuar/ Arquivo: atrave's desta op 9 do pode-se ampliar 
o numero de dados existentes no arquivo. Para acrescentar, 
por exemplo, mais 20 nomes a um arquivo com 50 nomes jd 
cadastrados, € necessdrio colocar a fita no gravador e entrar 
com a op 9 do Ler arquivo K-7 (3). Depois que o micro terminar 
de ler todos os dados cadastrados, surgird na tela o menu prin- 
cipal. Retorne a fita at 6 o inicio e entre com esta op 9 dfo (8). 
0 programa exibird o menu de Cadastramento e no canto su- 



perior direito do video aparecera o numero do nome que serd 
acrescido ao arquivo (neste exemplo, nome n9 51). Depois, 
com a fita jd no inicio, e ao fim do ultimo nome a ser acresci- 
do no arquivo (neste caso, o vigesimo, que faz o total de 70 
nomes no arquivo), deve-se utilizar a op 9 do Gravar arquivo 
K-7 (5) que, como jd citamos, faz com que o programa retome 
ao menu principal e desliga automaticamente o gravador. 

LEMBRETES FINAIS 

• As op95es deste menu que comentamos minuciosamente 
vdo de 1 a 8. Se for digitada uma op 9 do maior ou menor que 
estas, o programa acusard erro com a mensagem: OP^AC) 
INVALIDA. 

• Se, por algum descuido, for digitado BREAK no programa, 
e este ainda tiver dados do cadastro na memdria, ndo tecle 
RUN, pois desta forma todos os dados serdo perdidos. Digite 
GOTO 60 que os dados ndo serdo afetados. Verifique esta dica 
pesquisando um nome ou listando o arquivo. 

• Verifique se estd tudo Ok com o seu programa, testando o 

programa antes de retird-lo da memdria e gravd-lo definitiva- 
mente. Para isso, proceda da seguinte forma: apds a digita 9 do 
do programa, grave-o com CSAVE “LISTA”; depois dagrava- 
9 do, certifique-se que estd tudo certo com CLOAD? “LISTA”. 
Isso 6 feito retornando a fita com o programa gravado, e o mi- 
cro, entdo, compara o programa da memdria com o programa 
da fita. Se tudo estiver correto, apds a compara 9 do (LEITURA) 
surgird no video a palavra READY e logo abaixo o cursor em 
sua posi 9 do normal, mas se tiver ocorrido algum erro, aparece- u 
rd na tela a palavra MAU. c 



====3^ TEM TUDO PARA 



BibUoteca Brasileira de Software 



If SATISFAZER VOCE 




Suprimentos 



Hardware 

• CPU's das linhas: 

Apple, TRS-80 e Sinclair 
e Interfaces para: 

Disco, Impressoras, CP/M, 
80 colunas e Expansao de 
memdria 

e Drives para v&rios modelos 
e Monitores e impressoras 



Software 

O maior acervo de prog ramas 
do Brasil que vocd pode: 
testar, usar, administrar, 
programar, desenhar e jo- 
gar livremente. 

Disponfveis para as linhas: 
Apple, TRS-80 e Sinclair 



Te leco m u n i capdes 

e Programas para Projeto 
Cirandao 

e Programas para Video- 
texto da Telesp 
• Placas RS-232 da 
Arias Microcomunicapdes 
para TRS-80 e Apple 
e Modens 



• Formuldrios contlnuos 

• Diskettes 
e Etiquetas 

e Fitas para impressoras 



Av. Brigadeiro Faria Lima, 1390 
8° And. Cj. 82 Tels.: (Oil) 813 64 
01452 - J. Paulistano - Sao Paulo 






Divirta-se e teste sua inteligencia, neste jogo para 
a linha Sinclair, mesmo que voce esteja... 



Solitario 

Roberto Ribeiro Peixinho 



C omo o pr6prio nome j i diz, este jogo 6 para uma s 6 
pessoa. Solitario nSo depende de sorte, sendo 
baseado em puro raciocinio. Ele tem suas origens 
na civilizasao romana, mas s6 se tornou conhecido 
durante a Idade Mddia. A partir dai, espalhou-se por toda a 
Europa, sob duas versOes: uma inglesa e outra francesa. A ver- 
s£o conhecida por n6s e a inglesa, com 33 casas e 32 pe$as. 

O programa, para os micros da linha Sinclair, 6 auto-expii- 
cativo, s6 lembrando aqui que a jogada deve ser feita com as 
coordenadas juntas (B4D4), seguida de NEWLINE. Asjogadas 
iniciais vidveis sao: B4D4; D2D4; F4D4 ou D6D4. Tambem 
nSo se esque^a que quando nSo existir mais jogadas a fazer, 
deve-se digitar “00” para saber a classifica^o. 

Agora, paciencia e bons lances! 



Roberto Ribeiro Peixinho d mSdico, tem como hobby a computagSo e, 
h4 tr6$ meses, trabalha com um TK-85. 




A tela do jogo 



Solitario 



£ PEH **S0LITPPI04* 

4 PEM 

6 PEM *P06EPT0 P. PEIXINHO* 

10 GOSUB 1050 
20 FPST 

30 FOP N = 1 TO 16 

40 PRINT PT 1 , N; ' ■ . PT 16, N, ■ 



50 NEXT N 
60 FOP M =2 TO 15 
70 PRINT PT M 1 ; ' ■ 



AT M , 16 ■ 



80 NEXT M 
90 FOR N=2 TO 4 
100 FOR M =£ TO 4 
110 PRINT PT N , M , 
\ . PT N 4- 1 1 M \ 

"*120 NEXT M 
130 NEXT N 



V , PT N..M + 11 
PT N*11,M*1I. 



140 FOP. N=2 TO 5 
150 PRINT PT N . 5 



PT N . 12 • 



• PT N+10.5 1 PT N4l0 12. P- 

160 PRINT PT 5 N J PT 5 . N4 10 . 
"fc" . PT 12, N, 1 PT 12.N*10. P" 
170 NEXT N 

180 FOP H=2 TO 14. STEP 2 
190 PRINT PT 0.M.CHR5 ' 38+ (M-2* 
/2t PT 17. M C HR S »3o*'M-2>/2» 

200 PRINT PT M 0.CHRS ( 29* l H-2) 
/2).PT M . 17 . C HP S ■ 29* (M-2 > /2 ' 

210 NEXT M 
220 DIM 5(2) 

230 DIM PS (3,2) 

240 DIM T (7,7) 

250 LET P$ (1) ='• . 

260 LET PS <2'» =*' " 

270 LET P$ (3) a" 

280 FOR N =6 TO 10 STEP 2 

290 FOR M =2 TO 14. STEP 2 



300 PRINT PT N,M;Pf(l),RT N+l.M 
. PS 'S' 

310 NEXT M 
320 NEXT N 

330 P 0R N=2 TO 4 STEP 2 
340 FOR M =6 TO 10 STEP 2 
350 PRINT PT N.M.PS'U .RT N+l M 
, PS ' 2 PT N4 10 . M , p S < 1 ) RT N + ll M 
. PS *2) 

360 NEXT M 
370 NEXT N 

380 PRINT PT 8.6. PS i3' PT 9.5 P 

$ (3) 

390 PRINT PT l 22 PECPS", TPB 2 
1, 'EM JOGO 
4O0 LET P =32 

410 PRINT PT 3 22 mmm— ■ RT 

| | PT 4 24. . C ~ 22 “ 

420 PRINT PT 6 22. PECPS" , TPB 2 
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4 4.t *5 (1) 



0 petippdps 

430 -£T Rs0 

440 PRINT pr .» £2. mmmmmt . PT 9 . 

I I RT 9 , 24; P ,“lC , 22 ■ 

450 PRINT PT 11.19, SUP JOGPDP 
- P* 1 * 13,20 DE PT 13 25 PPRP 
460 PRINT TPfit 19. . T 

RE^ lr II I | 1 TRB 19 

470 LET 5 ( 1 > =0 
480 LET S(2> *1 
450 FOR x =1 TO 7 
500 FOP Y si TO 7 
513 LET T x .Y; =5(2) 

520 NEXT Y 
530 NEXT < 

540 LET T i4 ,4.1 *5 (1) 

550 SLOui 

560 PRINT PT 19 1 "SEU NOME ^ P 
T 21.1 "10 LETRPS NO MPXIMO" 

570 INPUT vs 
550 fqr U = 1 TO 31 
520 PRINT RT 19,1. Xf • OuPL 5 - 
SUP JOGPDP*' PT 21 1 DIG 

ITS JUNTO DE->PPRP' 

600 INPUT _ S 

610 IF JS="00 THEN GOTO 1240 
6 20 IF LEN l $ 4 THEN GOTO 600 

630 LET C=C0DE JSil)-37 
640 LET L=C0DE J$l2)-28 
650 LET 0»C0DE JS'.3;-37 
660 lET I=C0DE J S ■ 4 -28 
6 ”0 PPINT PT 15 20 JS ( 1 JS 2 ■ 
PT 15 26 . JS • 3J , JS (4) 

680 IF L 1 OP L > 7 OR C<1 OR C • 7 
OP 3 1 OP 0 > 7 OR I < 1 OR I > 7 THE 
N GOTO 1000 

690 IF LOI PND CoO THEN GOTO 
1000 

”*00 IF L =2 PND C =2 OR I =2 PN 
D 0 =2 THEN GOTO 1000 
710 IF L < =2 PND C =6 OP. I =2 PN 
D 0 =6 THEN GOTO 1000 
720 IF l :• =6 PND C =6 OR 2 =6 PN 
D 0 =6 THEN GOTO 1000 
730 IF L > =6 PND C < =2 OR I > =5 PN 
D 0 < =2 THEN GOTO 1000 
~40 IF L = I PND '.C+0 / /2 < INT C 
*0/ 2* THEN GOTO 1000 

-50 IF C=0 PND (L*X’/£'VZNT ( (L 
* 1 1 2 1 THEN goto 1003 
760 IF l = I PND (C-0=2l ♦ (C-0 = -2 
1 OP C =0 PND L - 1 =2 ■ 4 ( L-I = -2 



1 THEN GOTO 1003 

770 IF L = I THEN let H =L 

730 IF L = I THEN LET h= i C+0) /2 

790 Z e C=0 THEN LET P*C 

8 00 IF C =0 THEN lE t H = ( L 4 1 • 2 



4130 PRINT PT 12,2 "ELIMINPR PEC 
P5 TECLE 00 RhPP 

1140 PRINT PT 13.2 ” 5PBER SUP CL 
PS5IFICPCP0 



PT 19 1 "SEU NOME ^ P 
LETRPS NO HPXIHO" 

*§ 

1 TO 31 

RT 19 , 1 . X* OUPL E B 
PT 21 1 DIG 

DE->PRRR) 

- S 

"00 THEN GOTO 1240 
JS 4 THEN GOTO 603 
CODE J$ il) -37 
CODE JS 'Si' -28 
CODE J$ 13) -37 
CODE JS‘4 -28 
PT 15 20 Jfll JS 2 ■ 

< 3 J , J S ( 4 ) 

OP L 7 OR C l OR C - 
0>7 OR I < 1 OR I > 7 THE 

1 PND CoO THEN GOTO 

2 PND C =2 OR I =2 PN 
GOTO 1000 

2 PND C =6 OP I =2 PN 
GOTO 1000 

6 PND C =6 OR I =6 PN 
GOTO 1000 

6 PND C =2 OR I> =6 PN 
GOTO 1003 

PND '.C40; /2 < >INT C 
GOTO 1000 

PNC (L4l>/£ > INT ( (L 
GOTO 1003 

PND (C-0=2) 4 (C-Q=-2 
PND L - I =2 4 ( L -I=-2 



810 


IF T (L ,C' =0 THEN 


GOTO 


1000 


1 JOGPDRS, INCLUINDO" 




320 


IF T (H P =0 THEN 


GOTO 


10CC 


1160 


PRINT PT 15. 


2 


"PS 


INURLIDRD 


5 30 


IF T ‘ I .0' =1 THE*; 


GOTO 


1800 


PS" 










540 


PRINT PT 2*L,2*C: 


PS 3 


. PT 2 


1170 


PRINT PT 17 


3- 


BOP 


50PTE. . . 


*L4l 


2*C P $ 1 3 






'* 










350 


PRINT PT 2*1 240 


PS 1 


. PT 2 


1150 


PRINT PT 19 


0 


"EST 


P« PRONTO 


*141 


2*0 PS '2* 






PPPP COMECRR iS/N) 






350 


F OR N = 1 TO 20 






1190 


FOP; N = 1 TO 10 






570 


NEXT N 






1200 


NEXT N 








380 


PRINT PT 24H,2*P, 


PS (3 


PT 2 


1210 


IF INKEYS 


5- 


THEN GOTO 11 


*H4l 


,2*P PS ' 3» 






90 










390 


LET T : L . C ■ =5 1 1> 






1220 


CLS 








900 


LET T i H , P i = 5 ( li 






1230 


RETURN 








910 


LET T(I/0) «5.ia 






1240 


CLS 








920 


LET p = R 4 1 






1250 


PPINT PT 4 6 




P0I5 


E« >S 


930 


LET PaP-1 






1260 


IF P =6 -HEN 


PPINT 


PT 8.4 " 


940 


PRINT PT 4,24." 


'* , RT 


4.24 


LPMEr 


tpuel uoce 


FOI UM 


PT 10 0 


P, PT 


9.24 R 






"9S 


PlNDP 


SQBRhPPM ' P 


950 


NEXT U 






PEC- 


■ f 









960 PRINT PT 19.1 ' 5 INTO HUITO 

" . S MRS SUPS RT 21.1 2 

HRNCES TEP-»INPRPM 
2-0 FOP N*1 TO 20 
980 n£vt N 
990 GOTO 1240 

1000 PRINT PT 19 ■ 1 SUP JOGPDP F 
01 In . PlIDRDP 

1310 RRlN” r P- 21 i 'PRE5TE MPIS 

PTENCRO PS REGRRS 

1020 fop Nsi TO 30 

1030 nE>T 

1040 GOTO 250 

1053 PRINT P** - C 10 - ***-4*-- 

18 ------ m - 3 :• REGRP 

PT 4 2 — 

1068 PRINT PT 5.0 i.UOCE DE .E T 
ENTPP ELIMINPR 31" 

1070 PRINT PT 82 -PECP5 SOBRPN 
DO PPENPS -UMP- 

1050 - R In- PT t 0 , £ . r RECP JOGP 

DP DEVE PUlPR h 

1090 PRINT p-** 5.2. PECP UIZINHP 
! CP IP NUMP 

1100 PRINT PT 9 2.CP5P URZIR" 
1110 PRINT PT 10.0 "3.NP0 UPLE J 

:gpp. nrs dipgonpis 

1120 PRINT RT il c 4.SE NPO MOL 1 
,'EP MPIS CHRNCE DE 



SUP JOGPDP F 





EBBS* RT 2 

PT : : REGRR 

I.UOCE DEVE T 



2 . P PECP JOGP 



1270 IF P =5 THEN PRINT PT 5 4 U 



OCE E3TP* 39 
EM CmhNCE DE 
RESTPPPM " P 



I, MP5 . PT 10.4. *T 
LMOPPR ” PT 12 6 • 
PECPS " 



1230 IF P= 4 THEN PRINT PT 8 . 2 U 
OCE E5TP* iaMdIHMJ MRS PT 18 0 
PODE MELHORRR SUP CLR5SIFICRCP0 
' • PT 12 ,6. "RESTPRflH ,P. PECPS" 
1290 IF P = 3 THEN PRINT PT 5 .7 U 
OCE E* ISSi NISTO PT 10.4 DE5P 
FIO-O p MElHQRPR. . . •• ; RT 12 6 "RE 
5TPRPM ,P PECPS" 

1300 IF P =2 THEN PRINT PT 8.9 U 
OCE E* SHQg PT 10,4 POP POUC 
0 NPO CCNSEG'JIU" . PT 12.4 RESTPP 
PM PPENPS P. PECPS" 

1310 IF Psi THEN PRINT PT 6,15 

■PNTP5TIC0 ' . PT 8,7. U0CE E* Mi 
WBSBM RT 18 5 "5EM DUUIDPS 0 
CflriPERO PT 12.5 RESTOU SOMENTE 
' P PECP.PT 16.3; "TENTE REPE 
TIP 0 FPTO. . . " 

1320 CRINT PT 15,2 "OUEP JOGPP N 
OUPMENTE (S/N) ?'* 

1330 I e INKEY §»’" THEN GOTO 1320 

1340 IF INKEY S < > *’ S " THEN STOP 

1350 CL5 

1360 RUN 28 

1400 SPUE " SOLITPRIO" 




ASSISTENCIA TECNICA E 
VENDAS DE MICROCOMPUTADORES 



ATARI 
EPSON 
GRAFIX 



10 FOR I = 1TO20 
20 PRINT “ESTOU EM APUROS” 
30 NEXT I 
40 GO TO 10 







Mdismac 




PROLOGICA 

nnoocomputadores 



88 PHILIPS 

SUPRBRAIN 



AD 

EQUIPAMENTOS ELETRICOS LTDA. 

RUA LUIZ GOES, 1894 
FONES: 276-8988 e 577-8761 
TELEX: (Oil) 37.755 DTRD — SP 







Linha SINCLAIR 



Quanto sobra de memoria ? 

Quando voce estiver digitando um programa longo e 
quiser saber exatamente quanto ainda tem de memdria dis- 
ponfvel, e s6 entrar com: 

PRINKPEEK J.6386+256*PEEK i6387>~< 
PEEK 164i2+256*PEEK 164i3>+87 



□ 



Marcio Yamawaki-SP 



Linha APPLE 



Desafie a velocidade 

Aceite este desafio! Veja se consegue ser tSo rdpido 
quanto esta dica: 

i 0 REM RAPIDOh » nRAPIDISSIMO 
15 REM ARMANDO OSCAR CAVANHA FILHO 
20 DIM X(100) y Y(100> 

30 TEXT s HGR2 
35 X(0)^140^Y(0)=80 
37 FOR T=i TO 6:HC0L0R=T 
40 FOR 1=1 TO 20 

50 X ( I ) =270*RND ( 1 ) s Y ( I ) =180*RND ( 1 ) 
60 HP LOT X(I-1 ) ,Y(I-1 ) TO X(I) y Y(I 
) 

70 NEXT s NEXT: GOTO 30 

A linha 40 pode ser modificada (sendo que K pode ter 
qualquer valor atd 100) para: 

40 FOR 1=1 TO K 

E uina boa surpresa para o pessoal que tem TK-2000: pa- 
ra rodar esta dica 6 s 6 acrescentar esta linha: 

65 SOUND 1 * T y 3 



Armando Oscar Cavanha F? -RJ 



Se voce tem pequenas rotinas e programas utilitArios 
realmente uteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulg£-los. En- 
vie-os para a REDAQAO DE MICRO SISTEMAS-SEQAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Nao se esquepa de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poder£ ser fttil para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 



Linha TRS-80 COLOR 



Efeitos especiais com PCLS 

Se voce esti cansado das cores mondtonas do fundo 
da tela quando usa o PCLS na tela grafica, tente agora 
este programinha para mudar o seu panorama visual : 



10 PMODE 3, is SCREEN i,J 
20 FOR A=0 TO 255 
30 POKE 179, A 
40 PCLS 
50 NEXT A 

Observa$So: o valor A do POKE determina o padrao 
colorido do fundo da tela. 



Marcos K. Watanabe-SP 



Linha 

TRS-80 



Organize 

seus programas 

At vai um programinha simples 
para fornecer uma listagem im- 
pressa e devidamente organizada 
do conteudo de todos os seus dis- 
quetes: 



10 CLS* PR INT318 , "«*# IMPRESS AO DE D 
XRETOR I OS***" 

20 PR INT382 , STR I NGS ( 29 , "-" ) 

30 PR INT3320 , "ENTRE 0 NONE DO DISC 
0 : "SPRINT: LINE INPUT XS 
40 CL.S s LPR INT"DIRETOR 10 DO DISC0== 
= > "XSsLPRINT 

50 CMD"Z" , "ON" : CMD"D s 0" : CMD"Z" , "OF 
F" s LPR INT s L.PR I NT s CLS 
60 PR INT3655, "TROQUE 0 DISQUETE NO 
DRIVE 0 E TECLE" 

70 PR INT37 i 5 , "< ENTER > PARA CONTINU 
AR OU < BREAK > PARA PARAR" 

80 LINE INPUT XSsGOTO iO 



E se voce possui 
dois drives e deseja 
trabalhar no drive 
1, basta modificar 
a linha 50 (CMD 
“Dd”) e a mensa- 
gem da linha 60. 



Roberto Quito 
de Sant'Anna-RJ 



Linha TRS-80 III 



Contagem regressiva 

Eis uma boa dica para ser implementada em seus jo- 
gos (ou mesmo em programas serios): uma rotina que faz 
a contagem regressiva de 9... ate 0. 




> : GOT 



6 CLEAR500 

7 CLS 

8 INPUT"CONTAGEM A PARTIR DE" ; F:F= 
9-F 

10 CLS 

11 G=9-F 

12 F0RI=0T0G 

15 US=CHRS<128> 

20 A9>=CHR5» ( 168 ) 5 B S=STR I NGS (4,13i)s 
CS=CHR % < 1 48 > 

22 XS=CHRS< 168) : YS=CHRS < 1 48 > :ZS=ST 
RING<B(4, 131) :Z2S=STRINGS<4, 131 ) 

23 HS=CHRS<170) 

40 CLS 

42 F=F+i:lFF=iTHENXS=US:Z2S=USsG0T 
052 

43 IFF=2THENG0T052 

44 IFF=3THENBS=US : XS=US : Z2S=US : GOT 

052 

45 IFF=4THENCS=US s GOT 052 

46 I FF=5THENXS=US s CS=US s G0T052 

47 IFF=6THENZ2S*US s XS=US : ZS=US : GOT 
052 

48 I FF=7THENA4=US s XS=US s G0T052 

49 IFF=8THENAS=US s YS=OJS : G0T052 

50 IFF=9THENB S=US : AS=US : XS=US s Z.S*U 
4 : CS=US : YS=US : Z2S=US : P R INT34 1 2 , H‘B s 
PRINT3476,H4; SG0T057 

51 IFF=10THENBS=US 

52 CLS s PR INT3410 , AS j :PRINT3415,CS 

53 PR INT3474 , XS ; s PR INT3479 , YS 

55 PRINT3475,B4 ? sPRINT34ii ,Z4; sPRI 
NT3539 , Z2S ; 

57 FOR J=i T025 s 0UT255 , 1 20 * N s 0UT255 , 
121+N : NEXTJ 
60 NEXT I 

65 CLS s F=0s G0T08 



Linha SINCLAIR 



Centra/izando strings 

Crie uma moldura na tela com esta rotina simples 
que centraliza, rapidamente, strings: 



1 LET H4="#*#«*##*******##*#**#*** 
***#***#" 

2 INPUT MS 

3 LET T=LEN MS 

4 LET N=(28-T)/2 

5 CLS 

6 PRINT AT 9,N*HS< TO T+4) 

7 PRINT AT 10 r N;"#";TAB <34+T)/2?"* 
/✓ 

8 PRINT AT 1 1 , N ; "*" • TAB ( 32-T ) /2 ; MS 

9 PRINT AT 13 , N j HS ; ( TO T+4) 



Marcel Cameleira-AL 



Linha TRS-80 COLOR 



Aumente a velocidade 

Caso voce ache que o seu micro compatfvel com a 
linha TRS-80 Color n£o estd trabalhando suficiente- 
mente rdpido, digite entlo: 



POKE 65495 y 0 



< ENTER) 



Observe agora que o cursor estd piscando com mais 
velocidade. Para desativar este high-speed , basta dar 
um RESET e a velocidade voltard ao normal. Experi- 
mente, para testar, rodar um programa — de preferSn- 
cia com muitos cdlculos - e cronometrar o tempo 
gasto para executar as contas. Coloque novamente o 
programa e digite esta dica. Viu a diferenfa? Um lem- 
brete importante: nunca tente salvar em fita um pro- 
grama se o computador estiver em high-speed , pois a 
grava^o e o programa na fita ir2o para o espa 90 ... 



R aim undo Antonio Monteiro-GO 



Marcos K. Watanabe-SP 



Linha SINCLAIR 



Arquivando a tela 


16514 


2A 


OC 


40 


it 


30 


75 


01 


D6 


Coloque em seu micro esta rotina em Assembler, que 6 


16522 


02 


23 


ED 


BO 


C9 


21 


30 


75 


dividida em duas partes: a primeira, que vai do endere 90 


16530 


ED 


5B 


OC 


40 


13 


01 


D6 


02 


16514 atd 16526, executa o armazenamento de uma tela 


16538 


ED 


BO 


C9 












inteira a partir do endere 90 30000; e a segunda, que co- 




















me 9 a no endere 90 16527 indo atd 16540, que coloca ime- 




















diatamente no video a tela que foi armazenada. 








Addlbero Fernandes GuimarSes-MG 






















SOFTWARE 



• Soft CP500 (disco), todo tipo 
troco - Paulo - Cx. P. 6125 — 
CEP: 13100 - Campinas-SP. Tel.: 
(0192) 41-8860. 

• Vendo ou troco programas pa- 
ra computadores CP 500, CP 300, 
DGT 100 e similares. Tenho jogos 
como: Assault, Acrobatas, Star 
Blazer e outros. 5 mil cada. Fago 
adaptagSo de Joystick no CP 300. 
Paulo Roberto, Rua Sargento 
JoSo Lopes, 804, Guarabu — 1 1 ha 
do Governador - RJ. CEP: 21931 

- Tel.: 393-7903. 

• TK85 e compatfveis. Progra- 
mas indditos. Pepa relagao pelo 
correio. Bonisoft. Av. Paula e 
Souza, 422, Maracan£, Rio, RJ.’ 
CEP: 20271. 

• CPM/Basic ou Cobol. Linha 

Apple ou outras. Aceito progra- 
mas objetos para revenda. Tel.: 
(021 ) 263-7267. Sdrgio/Paulo. 

Hor. comercial. 

• Soft p/Aplle — vendo aplicati- 
vos. Tel.: (011) 548-8842. 

• Programas p/Apple — os me- 
Ihores do mercado inter nacional 

- 1000 tftulos, Cr$ 25.000 disco 
cheio — Alfamicro — Cx. P. 21 193 
-SP. 

• Programas p/ Apple: aplicati- 
vos, utilitdrios, compiladores, lin- 
guagens e jogos. Tel.: (021) 239- 
0449, Stela. 

• Programas para Sinclair. Dez 
por apenas 1 ORTN. Pepa catdlo- 
go para Softbyte — R. Silvestre 
Ferraz, 1121 — 37500 Itajubd- 
MG. Tel.: (035) 622-1602. 

• Linha TRS80 Color, 300 pro- 
gramas a sua escolha, pepa cat£- 
logo, Josd Luiz Pereira, Cx.P. 
1536 — Foz do Iguapu — CEP: 
85890 — PR. 

• Commodore-64, assessoria, 
software, manutenpao e acessd- 
rios. Av. Brig. Faria Lima, 1644, 
s/I 26 - SSo Paulo — SP. Fone: 
(011) 843-1065. 

• Petroclub — Escreva enviando 
anexo 2000 mil e receba imediata- 
mente jogos e programas para a li- 
nha Sinclair ou TK2000, e envie 
tamWm detalhes do seu micro. 
Rua Sold. Hercilio Tardeli. 152 

- Petrdpolis - RJ - CEP: 25600. 

• Micro d movido a programa da 
Microlove. Reabastega o seu Sin- 
clair e TRS-80 com nossos progra- 
mas. Pepa lista tel.: (011) 448-4372. 



• Apple & Compatfveis progra- 
mas e manuais — solicite listas — 
Domfnio Publico Soft & Man — 
Cx. Postal 201 — S. Bernardo do 
Campo — CEP: 09700 — S£o Pau- 
lo. 

• Vendo software p/todos os mi- 
cros. Fitas e disco. Tel.: (011) 
241 -9064, SP. 

• Vendo compilador Basic e 
Forth, editor Assembler, ZX-De- 
bug. Micro Bug, MOS I (25 po- 
derosos comandos) para TK 85/ 
CP 200 Speed, yavados em 
Eprom Cr$ 60.000 cada. Vendo 
fita com 10 programas para TK 
2000/85 Cr$ 40.000. Gravo 
Eprom sob encomenda. S. C. 
Sampaio, Rua Pe. Leopoldo Fer- 
nandes, 360 — 60.000, Fortaleza- 
CE. 

• Vendo, troco programas Sinclair 
TRS80 pepa catdlogo. Oswaldo 
Alencar — Av. Gentil Bittencourt, 
124/1301 - Beldm - Pa. CEP: 
66000. 

• Compro interpretador Logo, 
em fita cassete, para TK2000. 
Prepo a combinar. Tel.: 286-141 1 , 
tratar com Eduardo. 

• Folha de Pgto., Contabilidade, 
Contr. Estoq., Contas Pag/Rec., 
Contas Correntes, Faturamento, 
Banco de Dados. Edit. Textos, 
Plan. Eletrdnica, Utilitdrios, Gera- 
dores de Prog., Copiadores, Ma- 
nuais, para CP 500 e Apple. Te- 
mos tambdm soft para IBM-PC. 
Despachamos para todo o Brasil, 
Microservice — O Software Com- 
pleto. R. Gaspar Fernandes, 16 — 
Sao Paulo - Tel.: (011) 215- 
9283. CEP: 01549. 

• Soft p/TK e CP. Lista gratis — 
FM Software — Cx. P. 85 Tatuf — 
SP ou R. Proenpa, 311 - J. Proen- 
pa — Campinas. 

• Vendo programas p/CP500. 
Tratar c/A. Gaeta Mq. SSo Vicen- 
te, 51 2/1 002 — Rio de Janeiro-RJ. 



EQUIPAMENTOS 



• Poligames Video & Micro: 
Toda linha Proldgica, Microdigital 
e Apple. Teclados profissionais p/ 
linha TK e AS-1000. Softhouse 
programas profissionais p/CP500, 
jogos e aplicativos p/TK 20 00 e 
CP/400. Atendemos reembolso 
postal. Nossos pregos sSo os me- 
Ihores, procure-nos para conferir. 
Rua Cardoso de Moraes, 61 , s/lo- 
ja 311 - Bonsucesso, Rio - Tel.: 
(021) 270-9197/290-2598. 



DIVERSOS 



• Manuais em portuguds para mi- 
cros e perifdricos Commodore. Es- 
creva p/W. Belo, R. Itamaracd, 47, 
D. de Caxias, RJ. ou tel.: (021) 
771-6889. 

• Vic Commodore manutenpSo s6- 
ria, mil soft, manuais em portu- 
gues, cabos, capas, interface K7 e 
RS 232 para CBBS e projet o Ci- 
randao, manuais tdcnicos para 
Epson, TRS 80 e conectores, etc. 
Bartd Computadores tel.: (021) 
262-1 21 3 - Av. Nilo Pepanha, 50/ 
2407 - Rio. 

• Traduzo qualquer publicapdo 

— Livros, Revistas, Manuais, Arti- 
gos em inglds, na drea da Micro- 
computapSo. Informagdes com 
Jorge Eider Silva — Village dos 
Mares - Quadra 18 — Bloco B - 
Casa 15 - Capim Macio — 59000 

— Natal-RN. 

• Compro micros, perifdricos, 
etc. Tel.: (011) 241 -9064, SP. 

• Apple x Video Texto, Ciran- 
dSo. Nao deixe seu Apple por fo- 
ra! Temos tudo p/ Apple, informa- 
goes tel.: (011) 241-9064, SP. 

• Vendo micros, perifdricos, etc. 
Todas as marcas e modelos. No- 
vos e usados c/garantia. Consulte- 
nos. Tel.: (01 1)241 -9064. 

• I nstalo joystick de videogames 
compatfveis com Atari p/micros 
CP200 e CP300. Tratar com Nel- 
son. Tel.: (01 1 ) 469-491 1 - SP. 

• Vendo drives, impressoras, in- 
terfaces, expansdes, monitores de 
vfdeo, joystick, software, tudo em 
micros e para micros. Novos e 
usados c/garantia. Consulte-nos. 
Tel.: (011) 241-9064, SP. 

• Assistencia tdcnica p/micros e 
perifdricos. Todas as marcas. Tel.: 
(011) 241-9064, SP. 



CURSOS 

• O NETC — Nucleo de Ensino 

de Tecnologia e Ciencja, estard 
promovendo a partir do mes de 
marpo, cursos indditos destinados 
a Tdcnicos e Engenheiros Eletrd- 
nicos, Eldtricos e de Telecomuni- 
capdes. Todos os cursos s So mi- 
nistrados com auxflio de transpa- 
rdncias e apostilas, incluindo 
amplo uso de laboratdrio de 
Hardware, contendo entre outros 
equipamentos, microcomputado- 
res da Suporte Engenharia desti- 
nados d treinamento e pesquisa 
com microprocessadores e peri- 
fdricos. Alguns exemplos destes 
cursos sdo: Eletrdnica Digital I, 

Computadores e Microcomputa- 
dores Digitais, Hardware de Sis- 
temas Ba sea dos no Microproces- 
sador Z-80, Hardware de Siste- 
mas Ba sea dos no MP 8080/85, 
Hardware de Sistemas Baseados 
no MP 6800, Software do MP 
Z-80, Software do MP 8080/85, 
Hardware de Teleprooessamento, 
Software de Teleprocessamento, 
Amplificadores Operacionais e In- 
terfaces A/D e D/A. Maiores in- 
formagoes e pedidos de catdlo- 
gos de cursos pelo telefone: 
(021) 220-1989, Rua Alvaro Al- 
vim, 37/29 andar — Centro, Rio 
de Janeiro — RJ. CEP: 20031. 

• A Bits e Bytes Computadores 
ministra regularmente cursos de 
Basic e DBasic II para computa- 
dores da linha CP 300/500 e com- 
patfveis IBM /PC. Aulas em peque- 
nas turmas, tamWm para crian- 
pas. Em dias e hordrio de sua con- 
venidncia. Maiores informagdes: 
322-1960 ou 322-2721, Estrada 
da Gdvea, 642, loja B, Sao Conra- 
do, RJ. 

• Mumps — A Matriz promove, 
mpnsalmente cursos de Mumps. 
R. Maestro Elias Lobo, 70 — CEP: 
01433, SP. Informagdes (011) 64- 
0688. 



Av. Presidente Wilson, 165/Grupo 1210 

Centro — Rio de Janeiro/RJ — CEP 20030 

Tels.: (021) 262-6306 

Rua Oliveira Dias, 153 — Jardim Paulista 

Sao Paulo/SP — CEP 01433 — Tels.: 

(011)853-3229 
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m.S. Services 



SOFTWARE - CP/M 



• Administrapdo Imdveis/ 
Condom fnios 

• Controle Administrative/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

• Controle Operacional Hotdis 

• Corregao Monetdria balanpo 

• Faturamento Servigos Medicos 
(Convenios) 

• Formulapdo/Cdlculo de Ragdes 

• Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n9 210 — C-01 
CEP 22250 - Botafogo - RJ 
Tel. PBX (021) 551-6699 



COMPUTADORES 
E PERIFER1COS 

UNITRON 

MICROCRAFT 

VENDAS 

LEASING 

PROGRAMAS 

CURSOS 

ASSISTENCIA 

TECNICA 



MACH FORM 

MAQUINAS 

E FORMULARIOS LTDA 



REBOBINAQAO DE FITAS 
DE IMPRESSORAS 
ELGIN. DISMAC. ELEBRAeoutras 
ENCADERNAQOES 
SERVIQOS GRAFICOS 
OFF-SET - TIPOGRAFICO 
NOTA FISCAL - FATURA 
implantacAo - RENOVACAO 
COMPRA E VENDA DE 
MAQUINAS DE ESCRIT0RIO 
EM GERAL 

CONTRATO DE MANUTENQAO 
E CONSERTOS 

ARTIGOS DE PAPELARIA 



Rua do Propdsito. 42 Sob 
Saiide — R J 
Tel (021)233-1593 



PARA 

PR0BLEMAS 

TECNIC0S 

USE 

A CABEQA 





PARA PROBLEMAS COM MATERIAL DE 

DESENH0 PINTURA - ENGENHARIA 
PAPELARIA - ESCRIT0RI0 • MAQUINAS P/ 
ESCROPRIO E SUPRIMENTOS EM GERAL 

B E ,l O BEL-BAZAR 

77 ■ j ELETR6NICO 

ooda voc4 AINDA ancontra praco 
a qualtdada da ANTIQAMENTt! 



AV. ALMIRANTE BARROSQ 81 • U "C” 
TEL: 262-9229 - 262-9088 - 24G8410 - 221-8282 
RIO DE JANEIRO -CASTEL0 



ALBAMAR 

ELE TRONIC A LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 CIO Cl 5 C20 
C30 e outros 



•FITAS 

MAGNETICAS 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e 8” 

Rua Conde de Leopoldina. 
270-A S3o Cristdvdo — R J 
Tels (021) 580-6729 
580-8276 



saw 



PUBUCACflES TECNICAS 
Disponiveis em portugues 

1 - Curso de dBase II 

2 - flpllcatlvos dBase II 

3 - Relatdrios dBase II 

4 - Curso de dBase III 

5 - Curso de Lotus 1 -2-3 

6 - flpllcot. lotus 1-2-3 

7 - Curso de Symphony 

8 - Curso de frameiuork 

9 - Curso de DOS (PC) 

1 0 - Curso de Unix 

1 1 - Curso de llnguogem C 

1 2 - Curso de UUordstar 



VCNDRS DISPONIVEIS PfiRfl 
TODO BRRSIl 

fll. Santos. 336 - Cj. 42 
CEP 0141 8 - SP 
TEL: (011)285-0132 




/MICROLOGICS 

Engenharia de Sistemas Ltda. Consultoria de Hardware 



ASSISTENCIA TECNICA 
A MICROCOMPUTADORES: 

Apple. TRS 80. IBM PC. ZX 81. TK 82. 
TK 85. CP 200. CP 500. Unitron. 
Impressoras e demais perifdricos 
Jogos de xadrez e outros compativeis. 

Compramos seu micro 
funcionando ou nfto 



VENDEMOS 
INTERFACES 
DIVERSAS P/ 
LINHA APPLE. 



Fazemos transformagdes 
a alinhamento de Drivers. 



UTILIZE NOSSO 
CONTRATO PARA 
ASSISTENCIA tGcnica 



Av. Presidente Vargas, 542/815 — Tel.: 263-9925 



MODEMS 

ANALOGICOS - BANDA BASE - SINCRONOS - ASSINCRONOS 



riRANDAOEMBRATEL Modelo TS-1275 e TS-300 



IS 

TROHCAL SISTEMAS 



TROPICAL SISTEMAS LTDA. 

Av. Antonio Abraao Caran. 430 - 8 ° A. - Tel.: (031) 441-1636 - Telex: (031) 1247 
Belo Horizonte - Minas Gerais - CEP 30.000 

Representantes: Rio - Sao Paulo - Brasilia - Curitiba - Florianopolis - Fortaleza - Maceio - Salvador ■ 
Ribeirao Preto - Uberlandia 












i WTROOUCAO AO , 




TATCHELL, J. e BENNETT, B., 
Introducao ao microcomputador , 
Editors Lutbcia. 



Dedicado, segundo pronuncia- 
mento da editors Lutbcia, a "me- 
ninos e meninas de 8 a 16 anos'\ 
este livro integra uma sbrie com a 
qual os editores pretendem ganhar 
uma fatia do rentbvel mercado ju- 
venil da Informbtica. 

Todo construfdo b base de 
quadrinhos e pequenas legendas, o 
livro apresenta uma diagramagao 
algo confusa e a ocorrencia de de- 
finigoes simplistas e conceitos por 
vezes imprecisos, o que torna 
quest ionbvel sua eficiencia em re- 
lagao ao leitor-alvo: para o publi- 
co infantil, ele peca por abordar 
(geralmente, em duas pbginas) 
temas complexos com o chip, re- 
des locais e controle de processos, 
e para os adolescentes este tipo de 
literatura b inconcebfvel, visto 
que os jovens na faixa de 15 anos 
possuem condigbes de v6os bem 
mais altos. 

Alguns dos temas tratados nos 
capftulos deste livro sSo: introdu- 
gao; o micro; programagao; tecla- 
do; como executar e guardar pro- 
gramas; grbf icos e animagoes; mu- 
sica e efeitos sonoros; o micro por 
dentro; uma pastilha por dentro; 
histbria do microcomputador; re- 
des de computadores; controle 
com micros; acessbrios para o 
micro e como escolher seu micro. 

Na mesma linha, a Lutbcia lan- 
gou ainda outros dois tftulos da 
sbrie. O Guia prdtico de programs - 
gao em BASIC , de Brian Smith, 
que trata em seus capftulos de 
assuntos como o funcionamento 
do computador; dando instrugbes 
ao computador; primeiros passos 
em BASIC; como utilizer o 
INPUT; o que fazer com o 
PRINT; desenhos; jogos; loops; 
subrotinas; grbficos e sfmbolos e 
dicas de programagao, entre ou- 
tros temas. 

O terceiro livro traz programas 



de jogos espaciais , sendo de autcx- 
ria de Daniel Isaaman e Jenny 
Tyler. Neste, encontram-se lista- 
gens de programas, jb adaptados 
aos equipamentos nacionais (li- 
nhas Sinclair, TRS e Apple), albm 
de sugestoes e dicas de programa- 
gbo de jogos. Todos os livros sSo 
t rad u goes. 



PIAZZI, Pierluigi l Jogos em 
Linguagem de Maquina , 
Editors Moderns. 



Jogos em Linguagem de M4- 
quina pode ser considerado uma 
espbcie de antologia de programas 
para computadores compatfveis 
com o Sinclair ZX-81. Todos os 
programas apresentados neste li- 
vro sao jogos escolhidos segundo 
vbrios critbrios e nao tern o unico 
objetivo de divertir. Embora bus- 
que o divertimento, o livro pode 
ser utilizado como fonte de con- 
sulta para atividades tbcnicas, di- 
dbticas e educativas. 

Por se tratarem de jogos, os 
programas contidos no livro exi- 
gem uma rapidez de processamen- 
to impossfvel de ser obtida com o 
BASIC. Assim, a parte essencial 
de todos os programas b elaborada 
em ASSEMBLER. 

Para tornar a obra acessfvel a 
um maior numero de pessoas, a 
parte em linguagem de mbquina 
foi listada de maneira que nffo se 
precise conhecer esta linguagem. 
O primeiro capftulo oferece o 
programa de um Monitor que per- 
mit irb a introdugao de cbdigos no 
computador de forma bem 
simples. 

Ao final do livro sSo apresen- 
tados dois apendices: no apbndice 
A foi listado um programa Moni- 
tor para aqueles que possuem um 
micro com apenas 2Kb de memb- 
ria RAM; no B foram publicadas 
algumas cbpias da tela para que o 
leitor possa se organizar melhor, 
caso queira alterar um display em 
algum jogo. 
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Redes de 

COMPUTADORES 




menasc£, D.; schwabe. d. 

Redes de Computadores-Aspectos 
Ttcnicos e Operacionais, 

Editora Campus. 

A tecnologia c ha mad a cornu- 
tagao por pacotes tern representa- 
do um papel revolucionbrio na 
brea de comunicagbo de dados. 
Isso porque ela permite que o 
desen volvimento verificado na 
brea de computagSo seja direta- 
mente aproveitado na transmissbb 
de dados. 

Como resultado desta tecnolo- 
gia, surgiram as redes de compu- 
tadores, que formam a base dos 
modernos sistemas de processa- 
mento distribufdo. 

Assim, este livro trata, inicial- 
mente, dos aspectos de organiza- 
gbo de uma rede de computado- 
res, descrevendo, em seguida, pro- 
tocols que permitem o seu fun- 
cionamento. Albm disso, os auto- 
res examinam tbpicos relaciona- 
dos bs centrais de comutagbb de 
pacotes, redes locais de compu- 
tador e banco de dados distribuf- 
dos. 

Estes assuntos estSo subdivi- 
didos do capftulo 2 ao 9 de Redes 
de Computadores. Nos capftulos 
2 e 3 sbo discutidos os mecanis- 
mos bbsicos usados na organiza- 
gao das redes de computadores e 
os procedimentos usados para 
controlar o seu funcionamento. 
O quarto capftulo apresenta as 
formas de um computador acessar 
uma rede, e, no quinto temos as 
formas de se ligar processos que 
executam em vbrios computado- 
res ligados b rede. O capftulo 
seguinte mostra os protocolos que 
oferecem servigos do tipo acesso 



remoto por terminal e transferbn- 
cia de arquivos. No capftulo 7 sbo 
discutidas formas de organizagbo 
dos nbs de comutagbo da rede, 
enquanto o 8 introduz as redes 
locais, e o 9 trata de bancos de 
dados distribufdos. O livro consta, 
ainda, de um capftulo de conclu- 
soes. 




MIRSHAWKA, V., Conhecendo e 
Utilizando o TK-2000, 

Editora Nobel. 

O objetivo do autor de Co- 
nhecendo e utilizando o TK - 
2000 b mostrar ao leitor, de ma- 
neira didbtica, as diversas aplica- 
gbes do TK-2000 Color. Porbm, 
esse objetivo nao impediu que a 
parte prbtica fosse desenvolvida. 

Assim. o autor elaborou e co- 
mentou programas para desenvol- 
ver problemas de matembtica e f f- 
sica; produzir sons que podem se 
tornar melodias; desenhar figures 
reais e abstratas, inclusive grbficos 
animados; criar desenhos de duas 
e trbs dimensbes, usando modelos 
grbficos de baixa e alta resolugbo, 
albm de programas para o seu di- 
vertimento em geral, procurando 
utilizer quase todas as instrugbes 
ou comandos da linguagem 
BASIC-APPLESOFT. As explica- 
gbes sobre os comandos utilizados 
nos programas sbo dadas b medida 
que eles aparecem, e a descrigao 
do uso correto dos diversos co- 
mandos. embora superficial, b su- 
f iciente para que se possa compre- 
ende-los. Ao final de cada capftu- 
lo o leitor poderb resolver tarefas 
que o ajudarao a dominar, ainda 
mais, o seu TK-2000. 
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pagan faz sua programapao financeira, 
efetua a folha de pagamentos e 
aHrministra minuto s minuto as suas 

Detalhe imponante : o novo 
' ,f inn \[ com Multicalc, pode 
mtercambiar planilhas com 
eomputadores da linha Apple * 

E, como todo business computer 



De hoje em diante nenhuma 
empresa, por menor que seja. pode 
dispensar o TK 200D II, Por que? 

0 novo TK 2000 II roda o 
Multicalc : a vers ao Microsoft do 
Visicafc? o programa mais famoso em 
todo o mundo. 

Isto signHfrca que, com ele, voce 
controla estoques, custom contas a 



Apresentamos o 

TK 20001 
Ele roda o programa 
mais famoso 
do mundo. 



que se preza. ele tarn ted a da 
profissional. aceita monitor, diskette, 
impressora e ja vem com interface. 

Alem de poder ser ligado ao sou 
televisor Icores ou PS B I, oferecendo 
som e image m da melhor qu alidade. 

Porlanto, peca logo uma 
demonstracao do novo TK 2000 II. nas 
versoes 64K ou 128K de membria, 

A mais nova estrela do show 
business so espera par isto para 
estrear no seu negocio. 



PrecD de lancamento* (128 Kl; 

Cr$ 2.649,850 

A1ICRODIGIML 

eomputadores pessoais 




* Sufeno a Bfterapaa sem yiS’u m/m 




